Form.Handle ved Active Forms

Hov, den hedder RegisterHotKey

Og hva = vha :)

med på en lytter.

Alternativt kan du lave et skjult vindue, har jeg i hvert fald brugt ved datamoduler, men kan godt se at activex formen burde have et handle.


program Project1;

uses
  windows, messages;

var
  WndCls : wndclass;
  MsgWnd : cardinal;
  msg : tagMsg;

function WndProc(wnd, msg : cardinal; wParam, lParam : integer) : integer; stdcall;
begin
// here you can process messages
result := DefWindowProc(wnd, msg, wParam, lParam);
end;

begin
ZeroMemory(@WndCls, sizeof(WndCls));
WndCls.lpfnWndProc := @WndProc;
WndCls.hInstance := hInstance;
WndCls.lpszClassName := 'msg wnd';
RegisterClass(WndCls);
MsgWnd := CreateWindowEx(0, WndCls.lpszClassName, nil, 0, 0, 0, 0, 0, 0, 0, hInstance, nil);
// MsgWnd now can be used as handle to message window
while GetMessage(msg, 0, 0, 0) do DispatchMessage(msg);
DestroyWindow(MsgWnd);
UnregisterClass(WndCls.lpszClassName, hInstance);
end.

Åbenbart har Form1 slet ingen properties. Hverken Caption, Color, ...

Lukker ...