Ausschalten von Tastenfunktionen in einer Maske

[IlseB]

Für mein DEFAULTEXPRESSION-Problem von gestern gibt es scheinbar keine elegante Lösung. Jetzt habe ich eine neue Idee : Kann ich nicht einfach die ENTF-Taste innerhalb der Maske ausschalten, sprich der User drückt ENTF es passiert aber gar nichts?

IlseB

[Sharky]

Hai,

das müsste eigentlich im OnKeyDown funktionieren:

Delphi-Quellcode:

procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if  Key = VK_DELETE then
  begin
    Key := 0;
  end;
end;

[IlseB]

Vielen Dank,
funktioniert bei einzelnen dbEditfeldern. Würde bedeuten, dass ich hunderte von Feldern so belegen müsste. Ich suche jedoch eine Möglichkeit für eine gesamte Maske mit allen darin enthaltenen DbFeldern (auf verschidenen Seiten verteilt) die Taste ENTF mit der gleichen Funktion wie die Taste 0 zu belegen.
IlseB

[jfheins]

Du weist schon, dass du einfach allen Edits dieselbe OnKeyDown-Prozedur geben könntest, oder ?

[IlseB]

Danke!
Eigentlich schon, war aber so mit meinem Problem vernagelt, dass ich daran nicht mehr gedacht habe.
Nochmal danke für den kleinen Schubser.

[Lemmy]

oder noch einfacher:

Die Eigenschaft "KeyPreview" des Forms auf true stellen und einfach dort das OnKeyPress-Ereignis auswerten!

Lemmy