Enter Taste in einem TEdit Feld

[dor557]

Habe eine Kleine Frage. Für den einen oder anderen sicher leicht für mich eine Bisher unlösbare aufgabe.

Ich habe auf einem Formular ein Tedit feld.

Dort möchte ich das er beim Drücken der Enter Taste die Gleiche Funktion ausführt wie als wenn es mit der Maus auf den Button Suchen klickt.

das habe ich 2 mal auf dem Formular !

Es geht ja auch schon.

ich habe mit der OnKeyDown methode gearbeitet.

nur jedes mal wenn ich die Enter taste drücke bekomme ich vom Windows einen Ton gesendet....

wie kann ich den Ton vermeiden,.


Gruss Sascha

[Helmi]

Hallo,

mach es im OnKeyPress des Edits:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #13 then
    begin
      Button1.Click;  //Button suchen
      Key := #0;
    end;
end;

[alzaimar]

Die 'offizielle' bzw. Windows-konforme Version ist, das man die Eigenschaft 'Default' des Buttons 'Suchen' den Wert True zuweist. Dann wird dieser Button gedrückt, wenn der Anwender ENTER drückt. Außerdem wird der button schwarz umrandet, was den Anwender auf diesen Umstand hinweist. Im Gegensatz dazu gibt es auch eine Eigenschaft 'Cancel'. Ist diese Eigenschaft gesetzt, reagiert der Button auf die Taste 'ESC'.

[Helmi]

Der Thread-Ersteller schrieb aber ganz explizit dass es im edit passieren soll

[dor557]

Danke. Das war die Lösung.

Kann es sein das mit dem Key := #0 der alte wert überschrieben wird und somit die aktion wenn man eine Taste #13 nicht übergeben wird und somit der Ton unterdrückt wird ??

PS: Nur zu meinem verständnis gefragt.

Gruss Sascha

[arbu man]

Zitat:

Zitat von dor557

Danke. Das war die Lösung.

Kann es sein das mit dem Key := #0 der alte wert überschrieben wird und somit die aktion wenn man eine Taste #13 nicht übergeben wird und somit der Ton unterdrückt wird ??

PS: Nur zu meinem verständnis gefragt.

Gruss Sascha

Ja, teste doch auch mal Key := 'f' dann siehst du genau was passiert. (Anstatt Enter sollte im Editfeld ein f erscheien)
Das kann man u.a. dazu benutzen die Eingabe zu filtern, wenn man z.B. nur Zahlen erlauben will.

#0 bedeutet das ein ANSI Zeichen eingefügt wird, eine Tabelle dieser Zeichen sollte sich mit Google finden lassen, zu beachten ist der Zeichensatz enthält auch Steuerzeichen wie #13 also Enter.

[juerg5524]

prozedurale TfrmSequenzer.edtKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
self.SelectNext(Sender as TWinControl, true, true);
end;
end;

ist auch eine Möglichkeit.

[Andreas13]

Du kannst Deinen Quellcode etwas übersichtlicher formatieren, wenn Du das Delphi-Symbol (= gelber Helm mit dem roten Kamm) vom Menü direkt über dem Editorfenster benutzt.
Gruß, Andreas
PS: Und das geht auch nachträglich über die Taste "Bearbeiten" am rechten unteren Rand des Editor-Fensters.

[TurboMagic]

und für das #13 gibt's schon eine vordefinierte Konstante:
vk_return

Solche gibt's auch für diverse andere Sondertasten...

[bernau]

Und der Thread ist von 2007 :wink: