比如说控件为Label
procedure TForm1.Label1DblClick(Sender: TObject);
var
tmp:TLabel;
begin
tmp:=Sender as TLabel;
MessageBox(Form1.Handle,Pchar(tmp.Name),'实例',MB_OK );
end;运行一下试试。
procedure TForm1.Label1DblClick(Sender: TObject);
var
tmp:TLabel;
begin
tmp:=Sender as TLabel;
MessageBox(Form1.Handle,Pchar(tmp.Name),'实例',MB_OK );
end;运行一下试试。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货