Auf Tastendruck

[Chris237]

Hallo Liebe Comunity,

Ich würde gerne ein Programm schreiben wo ich nur einen Knopf drücken muss z.B die Taste A damit sich in einem Editfenster die zahl um 1 erhöht. Wie kann ich das machen??

Danke im voraus für die Hilfe



LG

Chris237

[theo]

Welchen Teil der Aufgabe verstehst du nicht?

Falls du keinen Teil verstehst, gibt es hier Tutorials: http://www.delphi-treff.de/tutorials/

[Michl]

Hallo Chris,

erstmal herzlich willkommen im Forum!

Ich würde dir empfehlen ein paar Tutorials durchzuarbeiten (google einfach mal unter Lazarus oder Delphi Tutorial), dann sollte die Aufgabe ein Kinderspiel sein.

eine mögliche Lösung für deine Aufgabe wäre

- Lazarus starten
- neues Projekt anklicken, dann "Anwendung" auswählen
- es erscheint eine leere Form
- auf diese plazierst du ein TEdit
- im Objektinspektor wählst du Edit1 aus
- jetzt stellst du unter Eigenschaften (des Edit1) ReadOnly of "True"
- jetzt wechselst du den Reiter auf Ereignisse
- jetzt Ereigniss OnKeyPress auswählen -> Klick auf das "..."-Button, es wird die Ereigniss-Prozedur erstellt
- nun füge mal folgenden Code im Quelltexteditor ein:

Code: Alles auswählen

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
const
  Zahl: Integer = 0;                         //lokale Constante, verhält sich wie globale Variable
begin
  if (key='a') or (key='A') then inc(Zahl);  //Prüft, welche Taste gedrückt wurde
  Edit1.Caption:= inttostr(Zahl);            //zeigt die um 1 erföhte Zahl in Edit1 an
end;

- starte das Programm (mit F9)

immer wenn du die Taste "a" drückst, wird die Zahl um 1 erhöht und im TEdit angezeigt

[Chris237]

Danke Michl

[rwblinn]

Hallo Chris,

im Form ein EditFeld defieren (Name zB edCounter), dann edCounter Text 0 zuweisen und Event OnKeyPress verwenden:

Code: Alles auswählen

 
procedure TForm1.edCounterKeyPress(Sender: TObject; var Key: char);
begin
   Key := #0;
   edCounter.Text := IntToStr(StrToInt(edCounter.Text) + 1);
end; 
 

Gruss,
Rob