[true]

Как это сделать например как во флеше:

[v1s2222]

Ну этого просто так не сделаешь (если надо красиво, с анимацией).
Просто можно так - изменять visible нужной форме (компоненту), а потом в нужное время ее показывать, или же вариант - использовать сторонние библиотеки (выдвижные панели), их в интернете довольно много...

ЗЫ вот там посмотри, выдвигание формы (если тебе надо прятать форму) - http://programmersforum.ru/showthread.php?t=9164

[true]

Насчет visible не проканает потомучто останется кусок который мне будет ненужен, но все равно спасибо за совет Может кто нить подкинет идейку )
Щас пробую насчет визибл я совсем новичек я хочу примерно такое:

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
PageControl1.Visible:=False;
if Button1.Click then
PageControl1.Visible:=True;
end;

end.

[v1s2222]

Сообщение от true

Щас пробую насчет визибл я совсем новичек я хочу примерно такое:

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
PageControl1.Visible:=False;
if Button1.Click then
PageControl1.Visible:=True;
end;

end.

Так у тебя так не получится, надо писать это в Buttin1.Click (в твоем случае):

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
PageControl1.Visible:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.Visible:=True;
end;

[true]

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
if PageControl1.Visible=False

then
PageControl1.Visible:=True

else
PageControl1.Visible:=False;

end;

Вот так получилось, а вот как сделать чтобы и кэпшен у кнопки менялся?

[eXplorer]

так что ли?..

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
if PageControl1.Visible=False

then begin
PageControl1.Visible:=True;
Button6.caption:='спрятать';
end
else
begin
PageControl1.Visible:=False;
Button6.caption:='показать';
end;

end;

[true]

Да в точку)) Спасибо)

[eXplorer]

рад помоч!!!