@Aenogym: deine Zuweisung ist doch total sinnlos und konnte garnicht funktionieren - denn da
button nicht als Var-Parameter definiert ist, kannst du auch den Wert davon nicht ändern.
Und slebst wenn es ginge, hätte man onMouseUp ändern müssen, da ja das ContextMenü erst auf das loslassen der Maustaste reagiert :zwinker;
Also Armageddon ... hier eine an einfachheit nicht zu unterbietende Lösung
Setze ein leeres PopupMenu (TPopupMenu) auf dein Formular und weise es deinem Editfeld zu. (es dürfen also keine Item's drin sein)
Und dann nochwas:
es ist dann ja immernoch möglich per Tastenkombination (z.B. Strg+C) darin etwas zu Kopieren, deshalb mußt du dann noch folgendes der bei onKeyPress deines Edit's hinzufügen.
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Key := #00;
end;
Du könntest dir aber auch alles ersparren und einfach Enabled auf false setzen
