Fertige Procedure über Button ausführen?

[himitsu]

Zitat von hoika:

Beide OnClick-Methoden (oder was auch immer)
rufen dann die DoSomeThing methode auf.

Delphi-Quellcode:

procedure TForm1.Button1OnClick;  // oh Gott Button 1 ???
begin
  DoSomeThing;
end;

procedure TForm1.Button2OnClick;  
begin
  DoSomeThing;
end;

bevor es untergeht ... OnClick-Methoden haben einen Parameter (Sender: TObject)

PS: wenn du DoSomeThing auch soeinen Parameter gibst und DoSomeThing in einer Klasse definierst (halt irgendeine Art 'ner Klassen-Methode), dann kannst du DoSomeThing dem Button auch direkt zuweisen.

Delphi-Quellcode:

T... = class(...)

public
  { Public-Deklarationen }
  procedure DoSomeThing(Sender: TObject = nil);
end;

// "..." kann auch etwas von TForm sein, muß es aber nicht

dank dem =nil im Parameter kann man DoSomeThing; auch weiterhin ohne Parameter direkt aufrufen.

Wichtig: die Sichtbarkeit der Methode muß public oder published sein
und wird =nil weggelassen muß bei direktem Aufruf der Methode der Parameter angegeben werden

[Luckie]

Die Methode von hoika ist auf alle Fälle vorzuziehen. Es ist einfach sauberer, weil die Funktionalität von der Oberfläche getrennt wird. Ausserdem sieht man gleich was passiert, wenn man der Funktion einen aussagekräftigen Namen gibt.

[himitsu]

Zitat:

Ausserdem sieht man gleich was passiert, wenn man der Funktion einen aussagekräftigen Namen gibt.

also bei mir kann man das auch

(bei Definition in der Form, kann die Prozedur direkt über den OI zugewiesen werden
und bei Definition an anderer Stelle, dann via QuellCode)