Alternativer START über Button oder <ENTER>

[Sel2012]

Hallo,
nachdem "<ENTER>-Taste für programminterne Befehle nutzen" mit engagierter, fundierter und gut nachvollziehbarer Hilfe (Danke, danke!!) gut funktioniert, bleibt noch ein (kleiner?) Schritt:

Ich kann mittels Button-Click eine längeren Routine starten und möchte diese Routine auch mit Klick auf die <ENTER>-Taste der Tastatur starten. (Also irgendwie ein ODER).
Also dieselbe procedure soll über 2 mögliche Klicks unabhängig voneinander zu starten sein.
(Die procedure für den <ENTER>-Tasten-Start läuft, liefert aber nur innerhalb dieser procedure eigene Steuerungsmöglichkeiten).

Entschuldigt bitte die niveaulose Fragestellung, aber ich lese anscheinend immer die falschen Bücher.

Danke, Seli

[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;