Ich habe ein Fenster mit fast 100 Editfeldern.<br>
Meine Problem ist: ich möchte die Tasten VK_Up und Down zum wechseln der horizontalen Editfelder nutzen.<Br>
In dem Ereignis Form.KeyDown habe ich folgendes schon ausgewertet<br>
<br><br>
Var I:Integer<br>
If Sender Is TEdit Then Begin <br>
With Sender As TEdit Do Begin<br>
I:=IntegerVal(Glob.Zahlen(name));// function sucht aus einem String nur Zahlenwerte aus<br>
If Key=Vk_Up Then Begin<br>
If (I>20)Or (I<90) Then Begin<br>
// hier krachts jetzt!!!! <br>
(Sender as TDbEdit).Name:=('Dbedit'+inttostr(i-10));<br>
(Sender as TDbEdit).SetFocus;<br>
End;
End;
End;
End;
Meine Problem ist: ich möchte die Tasten VK_Up und Down zum wechseln der horizontalen Editfelder nutzen.<Br>
In dem Ereignis Form.KeyDown habe ich folgendes schon ausgewertet<br>
<br><br>
Var I:Integer<br>
If Sender Is TEdit Then Begin <br>
With Sender As TEdit Do Begin<br>
I:=IntegerVal(Glob.Zahlen(name));// function sucht aus einem String nur Zahlenwerte aus<br>
If Key=Vk_Up Then Begin<br>
If (I>20)Or (I<90) Then Begin<br>
// hier krachts jetzt!!!! <br>
(Sender as TDbEdit).Name:=('Dbedit'+inttostr(i-10));<br>
(Sender as TDbEdit).SetFocus;<br>
End;
End;
End;
End;
Comment