[gelöst] TEdit eingabe mit ENTER bestätigen?

[heheracer]

Hallo, ich habe ein Programm geschrieben, wo man etwas in eine tedit box einbgeben muss. jetzt muss man aber immer mit der maus auf den button nebendran dürcken, enter geht nicht.
gibt es eine möglichkeit, den button zu "sagen", das er automatisch angewählt wird und wenn man enter drückt er bestätigt wird?

[theo]

Ich würde einfach in OnKeyUp die Enter Taste im TEdit abfangen.

[Ally]

So kann man zur nächsten TAB-Position springen. Vielleicht hilft dir das ja weiter.

Code: Alles auswählen

procedure TEdit.KeyPress(var Key: char);
begin
  // Wenn Entertaste gedrückt wurde, zur nächsten TAB-Position springen.
  if Key = #13 then // #13 =Enter
  begin
    Key := #0; // Beep verhindern.
    Screen.ActiveForm.SelectNext(Screen.ActiveForm.ActiveControl, True, True);
  end;
end;

[BeniBela]

Code: Alles auswählen

button.default:=true;

[heheracer]

Code: Alles auswählen

button.default:=true;

danke! genau das habe ich gesucht, lässt sich übrigens einfacher im objectinspector machen falls man die form nicht dynamisch erstellt.

[heheracer]

So kann man zur nächsten TAB-Position springen. Vielleicht hilft dir das ja weiter.

Code: Alles auswählen

procedure TEdit.KeyPress(var Key: char);
begin
  // Wenn Entertaste gedrückt wurde, zur nächsten TAB-Position springen.
  if Key = #13 then // #13 =Enter
  begin
    Key := #0; // Beep verhindern.
    Screen.ActiveForm.SelectNext(Screen.ActiveForm.ActiveControl, True, True);
  end;
end;

das hat bei diesem problem nicht geholfen, aber trotzdem sehr sinnvoll wenn man mehrere tedit boxen hat. werd ich sicher noch brauchen, danke.

hab hier dieses Problem:

unit2.pas(60,26) Error: method identifier expected

was muss ich ändern? Key hab ich schon als char deklariert

[Ally]

Entschuldige bitte, es muss natürlich so aussehen:

Code: Alles auswählen

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);

[heheracer]

Entschuldige bitte, es muss natürlich so aussehen:

Code: Alles auswählen

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);

auch das geht bei mir nicht

unit2.pas(55,31) Error: method identifier expected

[Ally]

Dann platziere doch mal ein neues TEdit und schreibe die folgenden Zeilen in's KeyPress-Ereignis.

Code: Alles auswählen

if Key = #13 then // #13 =Enter
begin
  Key := #0;
  Screen.ActiveForm.SelectNext(Screen.ActiveForm.ActiveControl, True, True);
end;

[heheracer]

Dann platziere doch mal ein neues TEdit und schreibe die folgenden Zeilen in's KeyPress-Ereignis.

Code: Alles auswählen

if Key = #13 then // #13 =Enter
begin
  Key := #0;
  Screen.ActiveForm.SelectNext(Screen.ActiveForm.ActiveControl, True, True);
end;

ok der code von dir war schon richtig, ich hatte ihn auch so, aber es egth wohl nur wenn man im objectinspector unter ereignisse onkeypress geht. komisch, aber gut es funktioniert.