谁能给我创建窗体的简单例子? 在线!!

Question

各位大侠,能给我这样一个例子码?
在一个窗体中,有一个button,点击在click事件中创建另一个窗体,并且新窗体上还要创建一个label,可以吗?完全用代码实现!

Answer 1

确定FrmLogOn不是AutoCreate 的
在form1的button的click事件里
Application.CreateForm(TFrmLogOn, FrmLogOn);
  with FrmLogOn do
  begin
    ShowModal;
  end;
  FreeAndNil(FrmLogOn);FrmLogOn里本身放一个label或者onCreate事件里自己创建一个

Answer 2

VAR
  FORM:tfORM;
  lA:tlABLE;
BEGIN
  fORM:=tfORM.CREATE(SELF);
  LA:=tLABLE.CREATE(FORM);
  LA.PAREMT:=fORM;
  lA.LEET:=10;
  LA.TOP:=10;
  fORM.SHOW;
END;

Answer 3

创建formlogo,并在option中设为非autocreate;
在click事件中:
VAR
  FORM:tfORM;
  MTABLE:tLABLE;
BEGIN
  fORM:=tfORM.CREATE(SELF);
  MTABLE:=tLABLE.CREATE(FORM);
  MTABLE.PAREMT:=fORM;
  fORM.SHOW;
END;

Answer 4

你们是说不管怎么样，都要先把这个窗体作出来，然后通过各种手段显示是吗？
frmlogo就是新窗体码？我是刚刚才用delphi的，你们可以把各个变量注释一下马？
而且，我业没有找到什么option的autocreate属性，可以详细讲一下吗？谢谢了！

Answer 5

procedure TForm1.Button1Click(Sender: TObject); var  form2:Tform;
     label2:Tlabel;
begin
form2:=Tform.Create(self);
label2:=Tlabel.create(self);
label2.Parent:=form2;
label2.Left :=10;
label2.Top:=30;
form2.ShowModal; end;

Answer 6

Project->Option里从AutoCreate里移走

Answer 7

那我怎么往里写事件呢？
比如说我创建了个窗体，上面有一个button，我怎么写他的click事件？谢谢你们了，等会结帖子的时候多加分.

Answer 8

procedure YourProc()
begin
 ...
end;...
Button1.OnClick := YourProc;
...

Answer 9

with tfORM.CREATE(nil) do
begin
try
 LEfT:=10;
 TOP:=10;
 SHOW;
finally
  freeandnil();
end;
end;
  

Answer 10

procedure YourProc(sender:tobject);
begin
 ...
end;...
Button1.OnClick := YourProc;
...