OnPaint форм в страницах PageControl-а

[resident]

Подскажите, плиз, как бы решить следующую задачку:
Загнал формы в страницы, и нужно чтобы при переключении на страницу форма, содержащаяся в странице, узнала об этом и произвела кое-какие действия. В Делфи отлично обрабатывалось OnPaint, а у меня в Лазарусе оно не срабатывает. А нужно чтобы срабатывало

[Little_Roo]

А нужно чтобы срабатывало

Ы ???
Самовыражайтесь яснее :(
А то получается - У МЕНЯ ЭТО ФИТЮЛЬКА НЕ РАБОТАЕТ, А ХАЧЮ, ШОБ РОБИЛА
Что за формы, что за СТРАНИЦЫ ???? это в подметных листках коммунистов или....???
Что за проект, версии ОС, лазаря,ююю и т.п. ну как положено...

А то - телепаты в отпуске (с) данный сайт

[resident]

Что за формы, что за СТРАНИЦЫ ???? это в подметных листках коммунистов или....???

Вы не знаете, что такое PageControl?
Следующий

[Little_Roo]

Вы не знаете, что такое PageControl?

Уважаемый....PageControl в топике было????
телепаты в отпуске (с) данный сайт

Следующий

Уходим с извинениями

[resident]

Уважаемый....PageControl в топике было????

Уважаемый - официант в ресторане.
А PageControl был в названии темы. Вы же в тему зашли кликнув по ссылке с её названием, и как бы дальнейшие ваши вопросы тем более истерическими буквами говорят о том что Вы не в себе. Но я то в этом не виноват, надеюсь

[Little_Roo]

Уважаемый - официант в ресторане.

НЕуважаемый resident
Сильно надеюсь... В ы не клон деби12345???? слов много, мыслей - чуть...
Не надо наездов и будет Вам счастье, в смысле -
опишите полностью проблему, прикрепите (микроскопический кусок Вашего кода, где эта бяка вызезает)

Да, и по писанным-неписанным правилам форума - указывайте ОС, версию фпц и лазаря....

И учите Русский язык.... хоть на уровне церковно-приходской школы

[Sharfik]

Little_Roo, вообще то автор темы написал вполне достаточно информации. Кто сталкивался с его проблемой в прочих подробностях не нуждался бы. А кто не сталкивался в любом случае ответить наверно не сможет. Может вы конечно надеетесь, что там код из двух строчек, но я в такое не верю, и вникать в логику из кучи функций мне лень. Так что не стройте из себя кенгуру перед кинескопом.

Подскажите, плиз, как бы решить следующую задачку:
Загнал формы в страницы, и нужно чтобы при переключении на страницу форма, содержащаяся в странице, узнала об этом и произвела кое-какие действия. В Делфи отлично обрабатывалось OnPaint, а у меня в Лазарусе оно не срабатывает. А нужно чтобы срабатывало

Вариантов несколько.
1. Найди ошибку у себя. Может ты когда форму создавал, ей владельца не назначил нужного, и ей не присылается команда прорисовки.
2. При создании формы где держаться ссылка на нее? Можно обработать переключение PageControl и отослать на форму повторно перерисовку.

[resident]

.

Каких только превращений в природе не бывает, мужик-истеричка.
Не по адресу, Я не трачу своё время на базарных баб. Далее в игноре.

Можно обработать переключение PageControl и отослать на форму повторно перерисовку.

Спасиб, работает

Код: Выделить всё

procedure TfMain.pcMainChange(Sender: TObject);
  var
    i: integer;
  begin
    for i := 0 to pcMain.ActivePage.ControlCount - 1 do
      if pcMain.ActivePage.Controls[i] is TForm then
         (pcMain.ActivePage.Controls[i] as TForm).OnPaint(Self);
  end;