就是这样，什么控件都没有加，还是不行<br>unit Unit1;<br>interface<br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;<br>type<br> TForm1 = class(TForm)<br> procedure formcreate(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br>var<br> Form1: TForm1;<br><br>implementation<br>{$R *.DFM}<br> <br>procedure tform1.formcreate(Sender: TObject);<br>begin<br>form1.Caption:='ok';<br>end;<br><br>end.<br>
