|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как скрыть PageControl на форме
|
#2
|
||||
|
||||
Ну этого просто так не сделаешь (если надо красиво, с анимацией).
Просто можно так - изменять visible нужной форме (компоненту), а потом в нужное время ее показывать, или же вариант - использовать сторонние библиотеки (выдвижные панели), их в интернете довольно много... ЗЫ вот там посмотри, выдвигание формы (если тебе надо прятать форму) - http://programmersforum.ru/showthread.php?t=9164 Помогаю за Спасибо |
#3
|
|||
|
|||
Насчет visible не проканает потомучто останется кусок который мне будет ненужен, но все равно спасибо за совет Может кто нить подкинет идейку )
Щас пробую насчет визибл я совсем новичек я хочу примерно такое: Код:
procedure TForm1.Button6Click(Sender: TObject); begin PageControl1.Visible:=False; if Button1.Click then PageControl1.Visible:=True; end; end. Последний раз редактировалось true, 03.10.2010 в 20:19. |
#4
|
||||
|
||||
Цитата:
Так у тебя так не получится, надо писать это в Buttin1.Click (в твоем случае): Код:
procedure TForm1.Button6Click(Sender: TObject); begin PageControl1.Visible:=False; end; procedure TForm1.Button1Click(Sender: TObject); begin PageControl1.Visible:=True; end; Помогаю за Спасибо |
#5
|
|||
|
|||
Код:
procedure TForm1.Button6Click(Sender: TObject); begin if PageControl1.Visible=False then PageControl1.Visible:=True else PageControl1.Visible:=False; end; Вот так получилось, а вот как сделать чтобы и кэпшен у кнопки менялся? |
#6
|
||||
|
||||
так что ли?..
Код:
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; Последний раз редактировалось eXplorer, 03.10.2010 в 21:58. |
#7
|
|||
|
|||
Да в точку)) Спасибо)
|
#8
|
||||
|
||||
рад помоч!!!
|