| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TFrame.Onshow
XPOID © (2005-07-20 14:19:00)добрый день, как всегда срочный вопрос)))
Воопщем мне нужно перегнать до завтра все формы во фреймы, чтобы затем вставить в уже написанную оболочку. Все шло как по маслу, пока я не столкнулся с забавной проблемой...У фреймов нету события OnShow...Что делать?
В создании компонентов я пока профан, разбираться начал тока недавно и поэтому добавить все ручками не получилось...Помогите,плз
xmed (2005-07-25 14:50:00) [1]Пардон, трохи недописал
procedure TFrame2.FrameResize(Sender: TObject);
begin
if CreatedF then begin
do_your_actions; // Ваше действие
CreatedF := False;
end;
end;
xmed (2005-07-25 14:48:00) [2]Если не ошибаюсь OnResize срабатывает как только он (TFrame) сотворяется и далее в любых случаях при Resiz'e фрейма.
Тоесть сделать переменную типа CreatedF: boolean и как только сработал первый раз OnResize делать нужное действие и изменять CreatedF на фальш дабы в последствии он наше действие не производилось
procedure TFrame2.FrameResize(Sender: TObject);
begin
if CreatedF then
do_your_actions;
end;
| |
