Возьми обычный TPageControl (+) («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

[an error occurred while processing this directive] Возьми обычный TPageControl (+)

(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Отправлено 630 нм 24 февраля 2006 г. 19:51
В ответ на: Нужна подсказка по Builder (Delphi) [+] отправлено megajohn 24 февраля 2006 г. 16:00

прямо в object inspector'е
у всех TabSheet'ов поставить:
TabSheet1.TabVisible:= false;
TabSheet2.TabVisible:= false;

переключать табы - через PageControl.ActivePage:

procedure TForm1.N11Click(Sender: TObject);
begin
PageControl1.ActivePage:=TabSheet1;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
PageControl1.ActivePage:=TabSheet2;
end;

Отправка ответа