ButtonClick Prozedur in eigene Methode definieren

[Paat]

Willst du innerhalb einer Prozedur/Funktion ein Ereignis (onClick, o.ä.) deklarieren und auch quasi auch dort handeln?

Code:

procedure IchBinEineProzedur;
  procedure btnTest.onButtonClick;
  begin
    macheEtwas();
  end;
begin
  if btnTest.Clicked then
    btnTest.onButtonClick;
end;

Denke nicht das soetwas möglich ist. Vielleicht weiß da ja jemand was

[hoika]

Hallo,

Zitat:

Ich brauche eine Funktion x. In dieser Funktion sind die ganzen Button Click Ereignisse und der dazugehörige Code.

Das würde ich anders lösen.
Definiere dir für jeden Button eine eigene Methode,

Bsp:
Du hast 2 Buttons.
BtnNeu, BtnAendern

Das ergibt 2 Methoden:

Delphi-Quellcode:

procedure TForm1.ArbeiteNeuAb;
begin
end;
procedure TForm1.ArbeiteAendernAb;
begin
end;

Und in die BtnNeuClick kommt der Aufruf:
procedure TForm1.BtnNeuClick();
begin
  ArbeiteNeuAb;
end;

Und jetzt kannst du auch den den Button "Neu" im Code klicken lassen (naja, so in etwa),
indem Du in der Procedure XYZ einfach ArbeiteNeuAb aufrufst.

[delphicoder123]

Ich meine das so.

1) Kann man die Prozedur Button1Click und Button2Click auch innerhalb der addiere Funktion definieren. Auch, wenn es an dieser Stelle keinen Sinn macht, würde es mich interessieren, ob sowas überhaupt möglich ist?
2) Falls, das nicht möglich ist, kann man wenigstens, die Prozedur Button1Click und Button2Click in der addiere Funktion aufrufen?

Anstatt das hier:

Code:

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

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Message 2');
end;

function TForm1.addiere(z1,z2:Integer): Integer;
begin
   result:=z1+z2;
end;

Sowas hier(Compiler gibt hier Fehler aus)

Code:

function TForm1.addiere(z1,z2:Integer): Integer;

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

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Message 2');
end;

begin
   result:=z1+z2;
end;

[Schokohase]

Du kannst lokale Proceduren/Funktionen definieren, die haben aber auch nur eine lokale Sichtbarkeit und du kannst diese somit auch nur lokal verwenden.

Delphi-Quellcode:

procedure MyProcedure();
// lokale procedure/function
procedure MyLocalProc();
begin
end;

function MyLocalFunc() : Integer;
begin
  Result := 10;
end;

var
  r : Integer;
begin
  MyLocalProc();
  r := MyLocalFunc();
end;

[Uwe Raabe]

Zitat von delphicoder123:

2) Falls, das nicht möglich ist, kann man wenigstens, die Prozedur Button1Click und Button2Click in der addiere Funktion aufrufen?

Kann man schon, sollte man aber nicht. In so einem Fall ist es lesbarer, wenn man die eigentliche Routine auslagert und sowohl im jeweiligen ButtonClick als auch in der addiere-Funktion aufruft. Der Name Button1Click signalisiert, daß diese Methode beim Click auf den Button1 ausgelöst wird und nicht durch einen Aufruf in addiere. Wenn später jemand noch mehr in diesem Button1Click tun will, rechnet er vielleicht nicht damit, daß diese Methode auch in addiere aufgerufen wird.

When, What, Why!