因為想做各個輸入的help說明，要如何在按下F1快捷鍵後，取得目前游標所在物件的名稱呢？

1.拉一個 ApplicationEvens 元件(在 Additional TAB 中)在 Form 上

2.在其 OnMessage 事件中加入以下程式碼

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
function IsMouseOver (Control: TControl): boolean;
var p: TPoint;
begin
{ get absolute coordinates }
if GetCursorPos (p) then begin
{ convert to relative coordinates of component }
p := Control.ScreenToClient (p);
{ coordinates within Control? }
Result := (p.x >= 0) and (p.x <= Control.Width) and
(p.y >= 0) and (p.y <= Control.Height);
end
else
{ this should never happen, but who knows... }
Result := False;
end;
var
i : integer;
begin
if ((Msg.message = WM_KEYDOWN) and (Msg.wParam = VK_F1)) then
begin
Handled := True;
for i := 0 to Self.ControlCount - 1 do
begin
if IsMouseOver(Self.Controls[i]) then
begin
ShowMessage(Self.Controls[i].Name);
Exit;
end;
end;
end;
end;

參考資料：http://www.chmaas.handshake.de/delphi/tipsmain.htm


Fishman

感續前輩的回覆：

您的程式確實可用，支援滑鼠移動到物件上方，按下F1確實可以取得物件的名稱，但是有一個限制

不知道前輩是否有解！因為使用者可能會按下TAB按鍵來切換游標的位置，不知道程式要如何修改，

才可以支援鍵盤移動游標FOCUS的操作方式。

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
function IsMouseOver (Control: TControl): boolean;
var p: TPoint;
begin
{ get absolute coordinates }
if GetCursorPos (p) then begin
{ convert to relative coordinates of component }
p := Control.ScreenToClient (p);
{ coordinates within Control? }
Result := (p.x >= 0) and (p.x <= Control.Width) and
(p.y >= 0) and (p.y <= Control.Height);
end
else
{ this should never happen, but who knows... }
Result := False;
end;
var
i : integer;
P : TPoint;
begin
if (Msg.message = WM_KEYDOWN) then
begin
case Msg.wParam of
VK_F1 :
begin
Handled := True;
for i := 0 to Self.ControlCount - 1 do
begin
if IsMouseOver(Self.Controls[i]) then
begin
ShowMessage(Self.Controls[i].Name);
Exit;
end;
end;
end;
VK_TAB :
begin
Perform(WM_NEXTDLGCTL, 0, 0);
P.x := Round(Self.ActiveControl.Width / 2);
P.y := Round(Self.ActiveControl.Height / 2);
P := Self.ActiveControl.ClientToScreen(P);
SetCursorPos(P.x,P.y);
Handled := True;
end;
end;
end;
end;

Fishman