Как провесить процедуру на OnShow динамически созданных вкладок PageControl'a

[1fixxer]

Есть PageControl, на котором динамически создаются вкладки. При переключении этих вкладок, нужно чтобы менялся размер PageControl'a.

[northener]

Сообщение от 1fixxer

Как провесить процедуру на OnShow динамически созданных вкладок PageControl'a

Так же как и на все прочие динамически созданные компоненты.
Жизнь и смерть в режиме run-time

P.S.
На всякий случай. Вкладка в PageControl'е это компонент TTabSheet.

[1fixxer]

В курсе. Спасибо за ссылку.

[northener]

Тогда в чём проблема?

[1fixxer]

Создал TTabSheet:

tab:=ttabsheet.Create(pagecontrol3);
tab.PageControl:=pagecontrol3;
tab.Parent:=pagecontrol3;
tab.OnShow:=ResizeTab(self,year);

Написал процедуру:

procedure ResizeTab(Sender: TObject; y:integer);
begin 
TControl(sender).Width:=100+75*y;
end;

Получаю ошибку:
Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'.

[northener]

Сообщение от 1fixxer

Написал процедуру:

procedure ResizeTab(Sender: TObject; y:integer);
begin 
TControl(sender).Width:=100+75*y;
end;

Получаю ошибку:
Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'.

Логично. Ты написал процедуру. А надо было написать метод класса (формы).
Кстати в статье по ссылке всё это сказано. Так что ты не в курсе.

[1fixxer]

Не ругайтесь, в курсе я был всего лишь про TTabSheet...так как правильно нужно написать?

procedure TForm1.ResizeTab(Sender: TObject; y:integer);
begin
TControl(sender).Width:=1000+y*75;
end;

Та же ошибка

[northener]

Сообщение от 1fixxer

Не ругайтесь, в курсе я был всего лишь про TTabSheet...так как правильно нужно написать?

Ну ты спросил в 4-м часу ночи.
Как "правильно", что бы Дельфи не ругалось я могу сказать. Меня только смущает параметр "y:integer" в твоей процедуре. Не могу понять его смысл.

[1fixxer]

В цикле на PageControl'е создаются вкладки, и при переключении на них нужно чтобы ширина PageControl'а менялась в зависимости от y (из цикла). Я наверно пытаюсь изменить ширину TTabSheet вместо PageControl'а в том коде, что я написал...исправьте, пожалуйста на правильный.

[1fixxer]

Разобрался.