Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Rechtsklick on Edit
Kielemanscharo - So 07.08.05 16:05
Titel: Rechtsklick on Edit
Moin,
kann mir jemand sagen wie ich einen Rechtsklick in ein Editfenster verhindere und das Windows Standart Popmenü nicht angezeit bekomme :?: will dadurch verhindern das jemand etwas in ein EditFeld hinein kopieren kann :!:
Danke
Gruß
Moderiert von 
Gausi: Topic aus Programmierwerkzeuge verschoben am So 07.08.2005 um 16:16
WeBsPaCe - So 07.08.05 16:11
Moinmoin! :welcome: im DF!!! :D
Setz' dir einfach ein komplett leeres TPopupMenu auf dein Formular und weise das dann deinem Edit in der Eigenschaft PopupMenu zu. ;)
PS.: Das verhindert aber noch kein STRG+C und STRG+V. ;)
Kielemanscharo - So 07.08.05 16:30
mensch das ging aber schnell
funktioniert sehr gut. vielen dank
mit strg+c und strg+v habe ich schon hinbekommen.
manchmal kann delphi richtig simpel sein.
gruß
WeBsPaCe - So 07.08.05 16:33
| Kielemanscharo hat folgendes geschrieben: |
| mit strg+c und strg+v habe ich schon hinbekommen. |
Wie hast du's gelöst? Mir fällt nämlich im Moment nix besseres ein als was in
OnKeyDown reinzuschreiben. Aber die
ShowMessage stört irgendwie... :gruebel:
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 17 then ShowMessage('Kein STRG erlaubt.');
end; |
Klabautermann - So 07.08.05 16:44
Hi,
| WeBsPaCe hat folgendes geschrieben: |
| Aber die ShowMessage stört irgendwie... :gruebel: |
dann mache doch eine leeranweisung dort hin:
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 17 then ;
end; |
// Edit: bzw da muss daoch ohnehin noch ein Key = 0 hin oder?
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 17 then Key = 0;
end; |
Gruß
Klabautermann
raziel - So 07.08.05 16:46
Wenn schon, dann muss es if Key = 17 then Key := 0; heißen ;)
WeBsPaCe - So 07.08.05 16:48
Autsch... :autsch: Ich dachte Key sei read-only. ;)
Klabautermann - So 07.08.05 16:49
| raziel hat folgendes geschrieben: |
| Wenn schon, dann muss es if Key = 17 then Key := 0; heißen ;) |
Jaja, ich hüpfe momentan zu viel zwischen den sprachen ;).
Keldorn - So 07.08.05 17:16
| WeBsPaCe hat folgendes geschrieben: |
Setz' dir einfach ein komplett leeres TPopupMenu auf dein Formular und weise das dann deinem Edit in der Eigenschaft PopupMenu zu. ;)
|
Es geht noch einfacher und ohne zusätzliche Komponente: mit dem OnContextpopup-Ereignis. Dort einfach
reinschreiben
Mfg Frank
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!