delphi - デザインタイムでコードを実行するには?

Question

設計時にフォーム上の何かを変更するコードを実行するにはどうすればよいですか?

私はこれを試しましたが、これはランタイムでのみ機能します:

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  Form1.Font.Color := clRed;
end;

「登録」や「初期化」などの「魔法の」手順があることは知っていますが、ここでは役に立たないと思います。

私のポイントは、フォントの色を赤に変更するだけではなく、フォームの外観を複雑に変更することであり、デザイン時に見たいことに注意してください。

Answer 1

これをたくさん行う場合、または複雑な操作を行う場合は、実行時にこの設計作業を行う方がよいでしょう。プロパティエディタの作成はそれほど手間がかからず、実行時にウィジェットツリーを操作することもできません。