Taschenrechner über Tastatur bedienen

**Stefan92**

Hallo,
ich habe folgendes Problem, und zwar habe ich einen einfachen Taschenrechner programmiert, der auch funktioniert, aber jetzt möchte ich ihn auch über Tastatur bedienen.
Wie kriege ich es denn z.B. hin dass er stetig auf einen Tastendruck wartet? Mit read?
Sorry, dass ich frage aber ich google schon seit einigen Tagen und auch im Forum hab ich geguckt, aber entweder gibt es das nicht oder es ist selbstverständlich

...

Gruß

Stefan

**sirius**

Schau dir mal die Ereignisse deines Formulars an.

**zahor**

z.B. onKeyPress oder onKeyDown, die gedrückte taste steht in der variable "key"

**inherited**

"KeyPreview" der Form sollte noch aktiviert sein.

**Stefan92**

Erstmal vielen Dank für die vielen Antworten.
Ist echt ein tolles Forum

.
Aber jetzt zur Sache:
Ich habe jetzt folgende Prozedur geschrieben, die ich auch in der Delphi-Hilfe gefunden habe:

markieren

Code:

			procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);

begin

  if key='1' then button1click(button1);

end;

Die Prozedur Button1click gibt es wirklich.
Allerdings reagiert da nichts.
Hoffe ihr könnt mir helfen.

Gruß

Stefan

PS: Wenn ihr wollt, poste ich auch den ganzen Quelltext.

[edit=Admin] Mfg, Daniel[/edit]

**Klaus01**

Zitat von Stefan92:

Die Prozedur Button1click gibt es wirklich.
Allerdings reagiert da nichts.
Hoffe ihr könnt mir helfen.

Guten Morgen Stefan,

hast Du keyPreview in der Form auf true gesetzt?

Grüße
Klaus

[edit=Admin] Mfg, Daniel[/edit]

**Tormentor32**

markieren

Delphi-Quellcode:

			procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); 

begin 

  if key='1' then button1.click; 

end;

Probier mal das

edit: Ist der Fokus auf einem der buttons? Ich glaube, dann wird das KeyPress eines Buttons ausgelöst, und nicht der Form... oder?

**Stefan92**

@Klaus01: Ja, in der Form ist Keypreview auf true gestellt.

@Tormentor32:

Zitat:

Ist der Fokus auf einem der buttons? Ich glaube, dann wird das KeyPress eines Buttons ausgelöst, und nicht der Form... oder?

Tut mir leid, aber ehrlich gesagt verstehe ich die Frage nicht.

Meinst du mit Fokus das Ziel?

Gruß

Stefan

**inherited**

Zitat von Tormentor32:

markieren

Delphi-Quellcode:

			procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); 

begin 

  if key='1' then button1.click; 

end;

Probier mal das

edit: Ist der Fokus auf einem der buttons? Ich glaube, dann wird das KeyPress eines Buttons ausgelöst, und nicht der Form... oder?

Genau dafür gibt es ja KeyPreview

**Tormentor32**

Mit Fokus meine ich, dass deine Buttons "Anvisiert" sind, soll heißen markiert.
Versuche mal inheriteds Vorschlag mit KeyPreview

edit:

Zitat:

@Klaus01: Ja, in der Form ist Keypreview auf true gestellt.

wer lesen kann ist klar im Vorteil! Mist!

edit2: Sieht das bei euch auch so komisch aus? siehe Anhang
edit3: So

jetzt ist es wieder schön, da brauchen wir auch keinen Screenshot mehr...

Taschenrechner über Tastatur bedienen

Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Re: Taschenrechner über Tastatur bedienen

Forumregeln

sirius Registriert seit: 3. Jan 2007 Ort: Dresden 3.443 Beiträge Delphi 7 Enterprise	#2 Re: Taschenrechner über Tastatur bedienen 10. Jan 2007, 18:05 Schau dir mal die Ereignisse deines Formulars an. Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
	Zitat

zahor Registriert seit: 27. Jun 2006 Ort: im hintersten Winkel des RAMs 182 Beiträge Delphi 2007 Professional	#3 Re: Taschenrechner über Tastatur bedienen 10. Jan 2007, 18:09 z.B. onKeyPress oder onKeyDown, die gedrückte taste steht in der variable "key" Real Programmers always confuse Christmas and Halloween because Oct31 = Dec25. - Andrew Rutherford
	Zitat

inherited Registriert seit: 19. Dez 2005 Ort: Rosdorf 2.022 Beiträge Turbo Delphi für Win32	#4 Re: Taschenrechner über Tastatur bedienen 10. Jan 2007, 18:32 "KeyPreview" der Form sollte noch aktiviert sein. Nikolai Wyderka SWIM SWIM HUNGRY! Neuer Blog: hier!
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.771 Beiträge Delphi 10.4 Sydney	#6 Re: Taschenrechner über Tastatur bedienen 11. Jan 2007, 07:35 Zitat von Stefan92: Die Prozedur Button1click gibt es wirklich. Allerdings reagiert da nichts. Hoffe ihr könnt mir helfen. Guten Morgen Stefan, hast Du keyPreview in der Form auf true gesetzt? Grüße Klaus [edit=Admin] Mfg, Daniel[/edit] Klaus
	Zitat

Tormentor32 Registriert seit: 27. Okt 2005 Ort: Düsseldorf 369 Beiträge Delphi XE5 Professional	#7 Re: Taschenrechner über Tastatur bedienen 11. Jan 2007, 07:37 markieren Delphi-Quellcode: procedure TForm1.FormKeyPress(Sender: TObject; var Key: char); begin if key='1' then button1.click; end; Probier mal das edit: Ist der Fokus auf einem der buttons? Ich glaube, dann wird das KeyPress eines Buttons ausgelöst, und nicht der Form... oder? Richard Mahr
	Zitat

Stefan92 Registriert seit: 9. Jan 2007 146 Beiträge Delphi 7 Enterprise	#8 Re: Taschenrechner über Tastatur bedienen 11. Jan 2007, 14:22 @Klaus01: Ja, in der Form ist Keypreview auf true gestellt. @Tormentor32: Zitat: Ist der Fokus auf einem der buttons? Ich glaube, dann wird das KeyPress eines Buttons ausgelöst, und nicht der Form... oder? Tut mir leid, aber ehrlich gesagt verstehe ich die Frage nicht. Meinst du mit Fokus das Ziel? Gruß Stefan
	Zitat