Выполнить процедуры:

← →
Оля (2002-10-03 16:45) [0]

Извините за дурацкий вопрос, а как это сделать

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Выполнить процедуры:
TForm1.SpeedButton1Click?
TForm1.SpeedButton2Click?
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
...
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
...
end;

← →
MBo © (2002-10-03 16:48) [1]

SpeedButton1Click(nil);

SpeedButton1Click(SpeedButton1)
SpeedButton2Click(SpeedButton2)

Выполнить процедуры: Найти похожие ветки