Скачать: CL | DM;

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;

---

← →
xmed ©   (2005-07-25 14:50) [2]

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c