如何手工生成对像到窗口上

Question

比如是以下
VAR
  AAAA:TEDIT;
begin
AAAA:=TEDIT.Create(FORM1);
AAAA.Enabled:=TRUE;
AAAA.Visible:=TRUE;
AAAA.Left:=1;
AAAA.Top:=1;
AAAA.Width:=145;
AAAA.Height:=21;
end;
执行后 在FORM1窗口上还是没有 看到一个 EDIT框

Answer 1

VAR
  AAAA:TEDIT;
begin
AAAA:=TEDIT.Create(FORM1);AAAA.Parent:=//AAAA的爹是谁 你没有说啊AAAA.Enabled:=TRUE;
AAAA.Visible:=TRUE;
AAAA.Left:=1;
AAAA.Top:=1;
AAAA.Width:=145;
AAAA.Height:=21;
end;

Answer 2

With TEDIT.Create(Self) do  //不要直接用变量！Form1
begin
  Parent := Self;  //不要直接用变量！Form1
  Enabled:=TRUE;
  Visible:=TRUE;
  Left:=1;
  Top:=1;
  Width:=145;
  Height:=21;
end;