TLabeledEdit在程序里面给CAPTION赋值，而不是在 Object Inspector定义。如何写

Question

xxxxx.Caption := 'aaaa';
试试

Answer 1

var
  AEdit :TLabeledEdit

Answer 2

to  Nizvoo(瓦匠泥★程序抗日不归路) 
不行，就是点不出来
我的是D6

Answer 3

你的AEdit是变量？？TLableEdit的Caption可以直接写的，像瓦匠泥的写法是对的。你的点不出来什么意思？

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
  LabeledEdit1.EditLabel.Caption := '我还已经解决了';
end;

Answer 5

AEdit.EditLabel[CAPTION] := 'dd'; 
AEdit.EditLabel.Caption := '也差不了多远呀！'; 

Answer 6

to  zswang(伴水)(需要充充电) 
代码贴出来给你看看var
  Form1: TForm1;
  AEdit:array of TEdit;
  num:integer=0;
  X:integer=20;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  num:=num + 1;
  setlength(AEdit,num);
  if not Assigned( AEdit[num-1])
  then
    begin
      AEdit[num-1] := TEdit.Create(self);
      AEdit[num-1].Parent := panel1;
    end;
  AEdit[num-1].Width := 40;
  AEdit[num-1].Left := X + 20*num;
  AEdit[num-1].Top :=  X + 20*num;
  AEdit[num-1].Visible := true;
  AEdit[num-1].editlabel[caption]:='dd';
end;

Answer 7

var
//  AEdit: array of TEdit;
//                  ~~~~~马虎大王
  AEdit: array of TLabeledEdit;
  Num: Integer = 0;
  X: Integer = 20;procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(Num);
  SetLength(AEdit, Num);
  if not Assigned(AEdit[Num - 1]) then begin
    AEdit[Num - 1] := TLabeledEdit.Create(Self);
    AEdit[Num - 1].Parent := Panel1;
  end;
  AEdit[Num - 1].Width := 40;
  AEdit[Num - 1].Left := X + 20 * Num;
  AEdit[Num - 1].Top := X + 20 * Num;
  AEdit[Num - 1].Visible := True;
  AEdit[Num - 1].EditLabel.Caption := '一个空格变两个';
end;

Answer 8

啊。真是，以后认真认真
 zswang(伴水)(需要充充电) 可以告诉我的EMAIL,或者QQ号码么
我是新手，想经常问你问题啊。多谢了。

Answer 9

如何知道用户点击了哪个菜单，并且告诉弹出的窗体
要求知道点击菜单的CAPTION
MAINMENU.ITEM[I].ITEM[J]....
要求知道I 和J

Answer 10

to lovefox_zoe(爱情狐狸):
  让全部的窗体执行同一个显示事件
  通过Sender你可玩出很多东东