Enter Taste als TAB

[Franz Gugler]

Hallo

In einer Eingabemaske habe ich einen Button plaziert auf den ich klicke (Enter) wenn alle Sachen erfasst sind. Die Entertaste bewikt das gleiche.

Nun möchte ich dass dies nur mit dem Button möchlich ist, die Entertaste sollte zum springen von einem DBEdit zum zweiten usw. benützt werden können.

Vielen Dank zum voraus!

GUFR

[Nico Bendlin]

<pre><p><font color="blue"><i>// Form1.KeyPreview := True;</i></font>
<b>procedure</b> TForm1.FormKeyPress(Sender: TObject; <b>var</b> Key: Char);
<b>begin</b>
<b>if</b> Assigned(ActiveControl) <b>and not</b> (ActiveControl <b>is</b> TButton) <b>and</b>
(Key = Chr(VK_RETURN)) <b>then</b>
<b>begin</b>
Key := Chr(0);
SelectNext(ActiveControl, True, True);
<b>end</b>;
<b>end</b>;<p></pre&gt

[Franz Gugler]

Hallo
Danke! Leider ist das Problem noch nicht gelöst, denn es tut sich nichts. Habe einen Test gemacht mit einem Form1, habe drei DBEdit drauf getan auf Ereignisse gewechselt und OnKeyPress geklickt und Deine Procedure abgeschrieben.
Was kann das nur sein!?

Gruss

Franz Gugle

[Nico Bendlin]

Ist im Objektinspektor die Eigenschaft <b>KeyPreview</b> von Form1 auf <b>True</b> gesetzt?<br>
(dadurch bekommt die Form alle Tasten-Events zuerst

[Franz Gugler]

Hallo,
Es läuft jetzt super.
Danke!!

mfg

Fran