Hay ich möchte eine ganz normal schleife machen um zu kontrollieren ob eine taste gedrückt worden ist.
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If(Key = VK_NUMPAD0)then
begin
EingabeEdt.Text:= EingabeEdt.Text + '0';
end;
end;
Ich weiß noch nichtmal ob das richtig ist, Es soll eine 0 in EingabeEdt eingefügt werden wenn die 0 Auf der Tastatur gedrückt wird oder wenn die 0 auf dem nunpad gedrückt wird.
So soll das aussehen
Loop:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If(Key = VK_NUMPAD0)then
begin
EingabeEdt.Text:= EingabeEdt.Text + '0';
end;
end;
GoTo Loop:
Ich weiß das das Loop da nicht richtig ist und nicht funktioniert aber evtl hat da ja wer ne Idee
Danke LG 2Kuhl4You