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