Toma lá meu guri (hehehe)

Coloquei um PageControl no form (TPageControl1) e um SpeedButton 
(TSpeedButton1). No clique deste SpeedButton fiz o código para incluir o 
TabSheet no PageControl.


procedure TForm1.SpeedButton1Click(Sender: TObject);
var ts : TTabSheet;
begin
  ts := TTabSheet.Create(PageControl1);
  ts.Parent := PageControl1;
  ts.PageControl := PageControl1;
end;

Abraços,
Alessandro.



[As partes desta mensagem que não continham texto foram removidas]

Responder a