![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Имитация нажатия кнопки при запуске приложения [D7, WinXP]
chir © (2005-01-14 00:34:00)Мастера, подскажите плиз куда лучше вставить вызов процедуры
MyControl(ToolButton1);
?
Надо при запуске приложения имитировать нажатие на ToolButton1. Нажатие на которую вызывает MyControl
т.е. ToolButton.OnClick := MyControl;
procedure TForm1.MyControl(Sender: TObject);
begin
// bla-bla-bla
end;
chir (2005-01-14 01:03:00) [1]Насколько правилен такой вариант?:
procedure TForm1.FormActivate(Sender: TObject);
begin
MyControl(ToolButton1);
Form1.OnActivate := nil;
end;
chir (2005-01-14 01:02:00) [2]На OnCreate не вешается...
Ошибка: не пишется запись в RichEdit.
На OnActivate вешается, работает, но не правильно.
Всегда когда прячутся Popup-окна срабатывает OnActivate. А мне надо это только один раз выполнить.
OlegP (2005-01-14 00:52:00) [3]OnFormActivate
OnFormCreate