delphi - 如何在设计时运行代码？

Question

如何在设计时运行一些代码来更改表单上的某些内容？

我已经尝试过了，但这仅在运行时有效：

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

我知道有像“注册”这样的“神奇”程序并且有“初始化”，但我认为这些在这里没有帮助。

请注意，我的观点不仅仅是将字体颜色更改为红色，而是对表单外观进行复杂的更改，我希望在设计时看到。

Answer 1

如果您要进行大量此类操作或复杂操作，最好在运行时进行此设计工作。创建属性编辑器不是很多工作，在运行时操作小部件树也不是。