解决马上上分:关于标题的问题
我在项目中设计了一个全局变量stitle:string;

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

[解决办法]

GetDlgItemText(IDC_BTN_LAST,string);
AfxMessageBox(s);
[解决办法]
procedure mControlsClick(Sender: TObject);
begin
mControls.Caption:=stitle;
end;

创建的时
mcontrols.onclick=mControlsClick;
[解决办法]

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;

[解决办法]

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;
end

end;