Kann ein ButtonClick ein result zurückgeben?

[delphicoder123]

Hallo,
ist es möglich, beim Klick auf einen Button ein result zurückzugeben? So, wie in einer Funktion?

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Message 1');
end;

[Schokohase]

Nein, das ist eine einfache Ereignis-Routine und was sollte das Button-Klick-Ereignis mit dem Ergebnis anfangen?

[Luckie]

Im Zusammenhang mit deiner anderen Frage ist dein Konzept schlecht.

Lagere alle Routinen die "was mach" (addieren, subtrahierten, ...) in eigene Routinen aus und rufe diese nur noch durch den Klick auf die entsprechende Schaltfläche aus.

Pseudocode:

Code:

procedure Form1.addiere()
begin
  //...;
end;

procedure Form1.subtrahiere()
begin
  //...;
end;

procdedure Form1.Button1lick(Sender: TObject)
begin
  addiere;
end;

procedure Form1.Button2Click(Sender: TObject)
begin
  subtrahiere(;
end;

Das ist zum einem übersichtlicher. Du trennst Funktionalität von der Oberfläche. Und die Routinen können von überall aus aufgerufen werden.

Und du solltest dir ganz schnell angewöhnen die Elemente deiner Oberfläche sinnvoll zu benennen: btnAddiere, btnSubtrahieren, usw.