@Flocke :
danke. aber bei mir funzt das irgendwie nicht.
bekomme folgenden Fehlermeldung :
Zitat:
[Fehler] Unit1.pas(34): Inkompatible Typen: 'Reguläre Prozedur und Methodenzeiger'
bei (hinter HookRightButton, )
HookHandle := SetWindowsHookEx(WH_GETMESSAGE, HookRightButton, 0, GetCurrentThreadId);
und
Zitat:
[Fehler] Unit1.pas(48) : '[' erwartet, aber '.' gefunden
bei (hinter Controls.)
Delphi-Quellcode:
with PMsg(lp)^ do
if message = WM_RBUTTONDOWN then
begin
Wnd := Controls.FindControl(hWnd);
if Wnd is TTBToolbar then
begin
thx