Программый клик по закладкам

[baster128]

Сделал программно несколько закладок TTabSheet. не получается по ним программно щелкнуть. Подскажите, если кто знает. Закладки на панели TpageControl.

[Stilet]

А просто вызвать обработчик клика, передав в него нужную вкладку:
И вообще по-моему у этого компонента нет события клика. Есть событие смены, а чтоб вызвать его нужно PageControl1.ActivePage:=Нужная вкладка

[Vohakisa]

Вот пример перехода на вторую закладку по нажатию на кнопку:

procedure TFMain.Button2Click(Sender: TObject);
begin
PageControl1.TabIndex:=1;
end;

[baster128]

Спасибо огромное работает все!

Объясню, почему именно клик, а не TPageControl.ActivePage. Потому, что нет перерисовки фона. Метод Repaint и т.д. пробовал. Всем возможным компонентам через Perform направлял сообщения BM_CLICK... Пробовал все. На форуме спрашиваю только если полный тупик.

[Stilet]

Потому, что нет перерисовки фона.

Извиняюсь, а как перерисовка к клику относится?

[baster128]

Не знаю. Дело в том, что на страницах лежат TGroupВox-ы, они закращены bmp и пока не кликнешь по закдадке Caption не появлялся. Сейчас все работает.