Hallo,
für so eine Anforderung schreibe ich immer
eine separate Prozedur,
die halt nicht OnButton1Click heisst,
sondern im Namen die Funktion auch beschreibt.
Delphi-Quellcode:
procedure TForm1.DoSomeThing;
begin
bla ...
end;
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;
Heiko