Сообщество Чайников

Вопрос

Как вызывать процедуру на событие другого контрола.

Ответ

Можно вот так:

procedure TfMain.ToolButton2Click(Sender: TObject);
begin
  Button1.Click;
end;

Но таким образом мона вызывать процедуры класса TControl…
А например для вызова этой процедуры:

Form1.Label1Click(Sender: TObject);


придется делать так:

Form1.Label1Click(Sender);

И еще, при использовании специфических процедур, таких как OnMouseMove, OnKeyPress, etc… придется передавать (желательно) дополнительные параметры типа TShiftState, X, Y — для OnMouseMove и Key — для OnKeyPress — соответственно.

Из конференции Delphi