| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
FormCreate... [D5]
serjkp © (2006-03-20 17:53:00)Уважаемые, подскажите...
в проекте множество форм,необходимо при FormCreate любой формы выполнять одну простенькую процедуру. подскажите как можно сделать так чтобы не вставлять во всем проекте вызов этой процедуры.Была идея создать пустую форму где уже написан в FormCreate и переназначить ее для всех далее создаваемых форм. Но как это сделать???
serjkp (2006-03-21 11:26:00) [1]Примногоблагодарен, все получилось!!!!
Игорь Шевченко (2006-03-20 18:29:00) [2]type
TMyForm = class(TForm)
protected
procedure DoCreate; override;
end;
procedure TMyForm.DoCreate;
begin
.... все необходимые действия...
inherited;
end;
Не зря все обработчики событий сделаны виртуальными процедурами.
StriderMan (2006-03-20 18:00:00) [3]сразу 2 варианта на ум приходит:
1. Сделать базовый класс для всех форм, и в нем сделать Event FormCreate, не забыв назначит у потомков тоже. Либо вообще в базавом классе выполнять эту процедуру в конструкторе формы.
2. Сделать процедуру
procedure FormCreate(Sender: TObject);
и потом при создании форм - назначать на нее Event;
| |
