Danke für die Antworten.
Ja dachte mir schon das da was faul ist, danke für den Hinweis Helmi.
Zitat:
Delphi-Quellcode:
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbMiddle then
EndMenu;
end;
Funktioniert bei mir leider nicht (unter Lazarus) ob es unter Delphi geht kann ich grad nicht testen. Vielleicht später unter Delphi 7 mal.