Loop? Delphi

[2Kuhl4You]

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 :D

Danke LG 2Kuhl4You

[Klaus01]

.. du kannst dazu das Ereignis "onKeyPress" oder "onKeyUp" der Form verwenden.

Eventuell im create der Form "KeyPreview :=true" setzen.

Windows Programme sind Ereignis gesteuert.

Grüße
Klaus

[2Kuhl4You]

Zitat:

Zitat von Klaus01 (Beitrag 1428221)

.. du kannst dazu das Ereignis "onKeyPress" oder "onKeyUp" der Form verwenden.

Eventuell im create der Form "KeyPreview :=true" setzen.

Windows Programme sind Ereignis gesteuert.

Grüße
Klaus

Danke hat geholfen dieses KeyPreview an zu machen :-)
Ich bin echt so doof, da hätte ich selber drauf kommen können :wall:

[Sherlock]

Und zwei Bitten noch:
1. streiche Goto aus Deinem Wortschatz (nimm es wieder auf, wenn Du sehr weit in der SW-Entwicklung fortgeschritten bist, und alle anderen Mittel versagen)
und b) Nichts davon war ein Loop (Schleife).

Sherlock

[peterbelow]

Zitat:

Zitat von 2Kuhl4You (Beitrag 1428220)

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.

Warum machst Du dir diese Mühe? Ein TEdit oder TMemo verarbeitet Zeichen von der Tastatur (inkl. Numpad) von selbst, das Control muß nur den Fokus haben.

[DieDolly]

Zitat:

b) Nichts davon war ein Loop (Schleife).

Und c) bitte verwende nach Möglichkeit den deutschen Wortschatz. Ich finde es immer wieder schrecklich zu hören, wie junge Programmieranfänger (ganz besonders die jungen Leute an unserer Schule und wahrscheinlich auch allen anderen die denken, es englisch auszusprechen sei angesagter) von Loops sprechen anstatt es einfach korrekt Schleife zu nennen.

Zitat:

eine ganz normal schleife machen

Und c) ganz normal ist in der Softwareentwicklung gar nichts :thumb:

[hoika]

Hallo,
genau, und wenn dann aber richtig eine "Für-Schleife" ;)

[DieDolly]

Zitat:

Zitat von hoika (Beitrag 1428270)

Hallo,
genau, und wenn dann aber richtig eine "Für-Schleife" ;)

So genau meinte ich das eigentlich nicht. For ist schon eingedeutscht. Loop dagegen ist einfach nur ekelig zu lesen in einem Delphiforum.

[p80286]

Zitat:

Zitat von DieDolly (Beitrag 1428272)

Zitat:

Zitat von hoika (Beitrag 1428270)

Hallo,
genau, und wenn dann aber richtig eine "Für-Schleife" ;)

So genau meinte ich das eigentlich nicht. For ist schon eingedeutscht. Loop dagegen ist einfach nur ekelig zu lesen in einem Delphiforum.

Komm lass gut sein. Kennst Du noch die Siemens-"Warzentaste"?
Aber es ist schon auffällig, daß der Gebrauch von Anglizismen umgekehrt proportional zur Erfahrung/Lebensalter ist.

Gruß
K-H

[Sherlock]

Zitat:

Zitat von p80286 (Beitrag 1428276)

Aber es ist schon auffällig, daß der Gebrauch von Anglizismen umgekehrt proportional zur Erfahrung/Lebensalter ist.

Quidquid latine dictum sit, altum sonatur.
Für die Generation Denglisch: Anything said in English sounds more important.

Sherlock