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?

[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 von blondervolker:

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

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

[BadenPower]

Zitat von blondervolker:

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

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 von himitsu:

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

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.