alle proceduren mit einem click ausführen?

[Haegar]

hi,
wenn du folgendes hast:

Delphi-Quellcode:

procedure TForm1.Button1.Click(Sender:TObject);
begin
 //mach was
end;

procedure TForm1.Button2.Click(Sender:TObject);
begin
 //mach was
end;

procedure TForm1.Button3.Click(Sender:TObject);
begin
 //mach was
end;

dann brauchst du nur noch Button1.Click oder welche prozedur es eben sein soll aufrufen.

Delphi-Quellcode:

TForm1.Button4.Click(Sender:TObject);
begin
 Button1.Click;
 Button2.Click;
 Button3.Click;
end;

und es wird in der reihenfolge abgearbeitet

gruss haegar