hallo zusammen, problem gelöst!!
bei
diesem code ist ein fehler drin!
Es muss CallWindowProc sein und nicht DefWindowProc.
Delphi-Quellcode:
procedure TForm1.PopupListWndProc(var Message: TMessage);
begin
with Message do
begin
case Msg of
WM_ENTERMENULOOP:; // PopupMenu wird geöffnet
WM_EXITMENULOOP:; // PopupMenu wird geschlossen
end;
Result := CallWindowProc(OldPopupListWndProc, PopupList.Window, Msg, WParam, LParam); // <<<<hier!
end;
end;
habe ich
hier entdeckt!
vielleicht sollte man das bei
diesem code noch ändern, falls möglich...
greez
urbanbruhin