Du willst wissen, wie du eine Methode aufrufst?
Richtig wäre so:
Delphi-Quellcode:
procedure TForm1.Wuppdi();
begin
// mach was
end;
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN
then begin
Wuppdi();
Key := 0;
// du hast ja schon was gemacht, also die Standardbehandlung nun verhindern
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Wuppdi();
end;
Dafür muss man die
procedure Wuppdi();
in der Klasse
TForm1
im
interface
-Teil deklarieren, dazu macht man Rechtsklick auf die Methode und "Klasse vervollständigen".
Wer nicht gerne selber Methoden anlegt, für den gibt es noch die naive Herangehensweise:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then begin
Button1Click(Sender);
Key := 0; // du hast ja schon was gemacht, also die Standardbehandlung nun verhindern
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// mach was
end;