TFrame.Onshow

← →
XPOID (2005-07-20 14:19) [0]

добрый день, как всегда срочный вопрос)))
Воопщем мне нужно перегнать до завтра все формы во фреймы, чтобы затем вставить в уже написанную оболочку. Все шло как по маслу, пока я не столкнулся с забавной проблемой...У фреймов нету события OnShow...Что делать?
В создании компонентов я пока профан, разбираться начал тока недавно и поэтому добавить все ручками не получилось...Помогите,плз

← →
xmed © (2005-07-25 14:48) [1]

Если не ошибаюсь OnResize срабатывает как только он (TFrame) сотворяется и далее в любых случаях при Resiz"e фрейма.
Тоесть сделать переменную типа CreatedF: boolean и как только сработал первый раз OnResize делать нужное действие и изменять CreatedF на фальш дабы в последствии он наше действие не производилось

procedure TFrame2.FrameResize(Sender: TObject); begin if CreatedF then do_your_actions; end;

Пардон, трохи недописал

procedure TFrame2.FrameResize(Sender: TObject); begin if CreatedF then begin do_your_actions; // Ваше действие CreatedF := False; end; end;

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