Alternativer START über Button oder <ENTER>

[Redeemer]

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;