Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Taschenrechner über Tastatur bedienen

**Tormentor32**

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?

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