根据鼠标移动 获取控件名称

[nottinghill]

怎么做啊??比如多个按钮 在多个分页的form上,鼠标点到那个,就显示空间名称,怎么做啊??

[luke5678]

Hint

[cnhgj]

TButton(sender).Name;

[jinjazz]

procedure TFormMain.Timer1Timer(Sender: TObject);
var
p:tpoint;
curwin:longint;
Parwin:longint;
text,textp:array[0..255] of Char;
var start:cardinal;
begin
getcursorpos(p);
curwin:=windowfrompoint(p);
if (listbox1.Handle=curwin) or (Handle=curwin) then exit;
getclassname(curwin,text,255);
parWin:=GetParent(curwin);
getclassname(parWin,textp,255);
Listbox1.Items.Add(inttostr(curwin)+':'+text+' parent:'+inttostr(parWin)+':'+textp);
listbox1.ItemIndex:=listbox1.Count-1;
end;

[cnhgj]

var
pos:Tpoint;
namestr:string;
begin
GetCursorPos(pos);
namestr:=FindVCLWindow(pos).Name;
listbox1.Items.add(namestr);
end;

[jinjazz]

楼上的昨天还号称猛男,今天就近视了??

[nottinghill]

var
pos:Tpoint;
namestr:string;
begin
GetCursorPos(pos);
namestr:=FindVCLWindow(pos).Name;
listbox1.Items.add(namestr);
end;

如果我只显示TBUTTOND的呢??

[劣势]

var
pos:Tpoint;
namestr:string;
begin
GetCursorPos(pos);
namestr:=FindVCLWindow(pos).Name;
listbox1.Items.add(namestr);
end;

如果我只显示TBUTTOND的呢??

如果只显示TButton
var
pos:Tpoint;
namestr:string;
begin
GetCursorPos(pos);
namestr:=FindVCLWindow(pos).Name;
if FindVCLWindow(pos) is TButton then listbox1.Items.add(namestr);//ok了
end;

[cnhgj]

MD。。昨晚去验光。。近视深了。。烦。。配个眼镜去掉400多大洋~~日！~~！猛不起来了

[hottey]

崇拜楼上的ＪＲ们^_^

[nottinghill]

FindVCLWindow返回的结果是Twincontrol 非 Tbutton ,无法调用,有办法 downcast么??

[cnhgj]

var
pos:Tpoint;
namestr:string;
begin
GetCursorPos(pos);
if FindVCLWindow(pos) is TButton then
begin
namestr:=FindVCLWindow(pos).Name;
listbox1.Items.add(namestr);
end;
end;

[hottey]

哈哈，再次崇拜。

[jinjazz]

〉〉MD。。昨晚去验光。。近视深了。。烦。。配个眼镜去掉400多大洋~~日！~~！猛不起来了

哈哈,让你在和俺抢分..

[nottinghill]

呵呵,我用as也可以

[nottinghill]

再次谢谢各位大侠