Hi !
Hier ist der Code für die Taste "PfeilUnten" :
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm11.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Down then
begin
Self.Perform(WM_NEXTDLGCTL,0,0);
end;
end; |
...funktioniert wunderbar !
Hier ist der Code für die Taste "PfeilOben" :
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm11.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Up then
begin
Self.Perform(WM_NEXTDLGCTL,1,0);
end;
end; |
...funktioniert auch wunderbar,aber wenn ich die Taste gedrückt halte,möchte ich,das der Cursor schnell zu jedem nächsten EditFeld springt (und nicht,das ich jedes mal,wenn ich zum nächsten Feld gehen will,die Taste drücken muss)
Bei der PfeilUnten Taste macht er das !
Könnt ihr mir helfen ?
Jagg !
