On Key Press

[blondervolker]

Hab in meiner Form ein Pagecontrol1 und ein TabSheet2 und ein AdvSmoothTabPager3(von TMS)

In meiner Form :

TImmo.FormKeyPressOnKeyPress hab ich eingefügt:

Delphi-Quellcode:

procedure TImmo.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if Key = #13 then begin
         Key := #0;
          PostMessage(Handle, WM_NextDlgCtl, 0, 0);
       end;
end;

Bei DBRichEdit1,kloppe ich auf die "Enter-Taste" und wollte nur eine Leerzeile bei DBRichEdit1 einfügen.

Wie kann man dies unterdrücken, dass bei Eingabe der Entertaste in ein anderes DBEdit weiterspringt?:shock:

[Aviator]

Oft wird bei Programmen, bei denen man mit Enter in das nächste Feld springt, die STRG Taste mit abgefragt. [Edit]Wenn es sich um ein RichEdit handelt.[/Edit] Nur wenn STRG+Enter gedrückt wurde, wird eine neue Zeile eingefügt. Vielleicht solltest du darüber nachdenken, ob du dein Programm an die (allseits bekannte) Funktionalität anlehnst.

[himitsu]

Zitat:

Zitat von blondervolker (Beitrag 1290267)

Wie kann man dies unterdrücken, dass bei Eingabe der Entertaste in ein anderes DBEdit weiterspringt?:shock:

Indem du den Code nicht ausführst, wenn der Fokus in diesem Edit liegt. :roll:

[BadenPower]

Zitat:

Zitat von blondervolker (Beitrag 1290267)

Wie kann man dies unterdrücken, dass bei Eingabe der Entertaste in ein anderes DBEdit weiterspringt?:shock:

Du hast doch selbst in der OnKeyPress-Prozedure festgelegt, dass, wenn die Enter-Taste gedrückt wird, der Fokus auf das nächste Element gelegt wird.

Wenn Du dieses Verhalten nun doch nicht möchtest, dann lösche die Prozedure wieder.

Zitat:

Zitat von himitsu (Beitrag 1290274)

Indem du den Code nicht ausführst, wenn der Fokus in diesem Edit liegt. :roll:

Das wäre aber auch irreführend, wenn einmal mit Enter der Fokus weitergeleitet wird und in einem anderen Eingabefeld dann wieder nicht.

Entweder immer oder eben gar nicht.