Hay ich möchte eine ganz normal schleife machen um zu kontrollieren ob eine taste gedrückt worden ist.

markieren

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:

markieren

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

.. 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

Zitat von 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

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

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

Zitat von 2Kuhl4You:

Hay ich möchte eine ganz normal schleife machen um zu kontrollieren ob eine taste gedrückt worden ist.

markieren

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.

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

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

Zitat von hoika:

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.

Zitat von DieDolly:

Zitat von hoika:

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

Zitat von p80286:

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