Модератор: Модераторы
resident писал(а):А нужно чтобы срабатывало
Little_Roo писал(а):Что за формы, что за СТРАНИЦЫ ???? это в подметных листках коммунистов или....???
resident писал(а):Вы не знаете, что такое PageControl?
телепаты в отпуске (с) данный сайтresident писал(а):Следующий
Little_Roo писал(а):Уважаемый....PageControl в топике было????
resident писал(а):Уважаемый - официант в ресторане.
слов много, мыслей - чуть... и будет Вам счастье, в смысле - resident писал(а):Подскажите, плиз, как бы решить следующую задачку:
Загнал формы в страницы, и нужно чтобы при переключении на страницу форма, содержащаяся в странице, узнала об этом и произвела кое-какие действия. В Делфи отлично обрабатывалось OnPaint, а у меня в Лазарусе оно не срабатывает. А нужно чтобы срабатывало
Little_Roo писал(а):
Sharfik писал(а):Можно обработать переключение 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;