解决马上上分:关于标题的问题

Question

我在项目中设计了一个全局变量stitle:string;我在程序中动态创建了一个控件.每个控件创建时都有自己的标题.我如何实现点击它们时,它会将它的标题传给全局变量stitle

Answer 1

GetDlgItemText(IDC_BTN_LAST,string);
AfxMessageBox(s);

Answer 2

procedure mControlsClick(Sender: TObject);
begin
mControls.Caption:=stitle;
end;创建的时
mcontrols.onclick=mControlsClick;

Answer 3

  private
    { Private declarations }
     procedure ButtonClick(Sender: TObject);
  public
    { Public declarations }
    stitle:string;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  btn:TButton;
begin
  btn:=TButton.Create( Owner );
  btn.OnClick:=ButtonClick;
end;procedure TForm1.ButtonClick(Sender: TObject);
begin
  stitle:=TButton(Sender).Caption;
end;

Answer 4

procedure TFrmTemplateDsn.ToolButton11Click(Sender: TObject);
begin
spage:=(Sender as TToolbutton).Caption;
showmessage(spage);
end;procedure TFrmTemplateDsn.ToolButton13Click(Sender: TObject);
var  tbt: array[1..8] of TToolbutton;
  n : integer;begin
  for n := 1 to 8 do
  begin
    tbt[n] := TToolbutton.Create(Toolbar3);
    tbt[n].Parent := Toolbar3;
    tbt[n].Caption := '参数'+ inttostr(n);
    tbt[n].Onclick := ToolButton11.OnClick;
    spage:=tbt[n].Caption;
  endend;