解决马上上分:关于标题的有关问题
解决马上上分:关于标题的问题
我在项目中设计了一个全局变量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;
我在项目中设计了一个全局变量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;