Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.02;
Скачать: CL | DM;

Вниз

FormCreate...   Найти похожие ветки 

 
serjkp   (2006-03-20 17:53) [0]

Уважаемые, подскажите...
в проекте множество форм,необходимо при FormCreate любой формы выполнять одну простенькую процедуру. подскажите как можно сделать так чтобы не вставлять во всем проекте вызов этой процедуры.Была идея создать пустую форму где уже написан в FormCreate и переназначить ее для всех далее создаваемых форм. Но как это сделать???


 
StriderMan ©   (2006-03-20 18:00) [1]

сразу 2 варианта на ум приходит:
1. Сделать базовый класс для всех форм, и в нем сделать Event FormCreate, не забыв назначит у потомков тоже. Либо вообще в базавом классе выполнять эту процедуру в конструкторе формы.

2. Сделать процедуру
procedure FormCreate(Sender: TObject);

и потом при создании форм - назначать на нее Event;


 
Игорь Шевченко ©   (2006-03-20 18:29) [2]

type
 TMyForm = class(TForm)
 protected
   procedure DoCreate; override;
 end;

procedure TMyForm.DoCreate;
begin
 .... все необходимые действия...
 inherited;
end;

Не зря все обработчики событий сделаны виртуальными процедурами.


 
serjkp   (2006-03-21 11:26) [3]

Примногоблагодарен, все получилось!!!!



Страницы: 1 вся ветка

Текущий архив: 2006.04.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
2-1142685685
Fenix
2006-03-18 15:41
2006.04.02
Добавление иконки на SpeedButton


2-1142794745
_Sa_nya
2006-03-19 21:59
2006.04.02
WIN API


15-1141884212
Ega23
2006-03-09 09:03
2006.04.02
С Днём рождения! 8 марта


5-1128672402
H010d Freeze
2005-10-07 12:06
2006.04.02
Проблемы с сохранением свойств субкомпонента


2-1142346394
Dec
2006-03-14 17:26
2006.04.02
Программа поверх окон