如何在设计时运行代码？

Question

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

我试过这个，但这只适用于运行时：

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

我知道有“魔术”程序，如“注册”，并且有“初始化”，但我不认为这些可以帮助到这里。

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

Answer 1

如果您要做很​​多这样的事情，或者进行复杂的操作，那么在运行时进行这项设计工作可能会更好。创建属性编辑器不是很多工作，也不是在运行时操作小部件树。