Кнопка BitBtn - Общие вопросы Delphi

Yurek · 02.11.2007, 16:27

Help я чайникб, прописал OnClick исчезновение меню.Как прописать чтоб при повторном нажатии меню вернулось на прежнее место.

Omedus · 02.11.2007, 16:30

Можешь сделать кнопку и при нажатии на неё если меню видно, то оно исчезает, а иначе - появляется.
Так же можешь сделать при нажатии на форму (тот же OnClick).
Ещё есть вариант при нажатии на определённую кнопку клавиатуры меню исчезает/появляется (OnKeyDown).
Ну или сделай так: при нажатии на меню - меню пропадает, а вот если нажать на форму без меню - оно восстанавливается. Вариантов много.

Квэнди · 02.11.2007, 16:53

Что за меню ?

Yurek · 02.11.2007, 17:10

Ну типа меню. TreeView+Panel+Bevel (возможно ли это все в один элемент). Хотелось бы на кнопку. Но если нет буду шота мутить. Спасибо.

Alex21 · 02.11.2007, 18:22

Цитата:

Ну типа меню. TreeView+Panel+Bevel (возможно ли это все в один элемент).

Я чето не понял, это что?
пример скрытие/появление панели (Panel):

Код:

Panel1.Visible:=not Panel1.Visible;

p.s.: приведи свой код скрытия.

andrey4623 · 02.11.2007, 18:53

я думал, как бы сделать свое меню, а что TreeView+Panel+Bevel - не знал

Yurek · 05.11.2007, 10:19

Цитата:

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

Я чето не понял, это что?
пример скрытие/появление панели (Panel):

Код:

Panel1.Visible:=not Panel1.Visible;

p.s.: приведи свой код скрытия.

Panel1.Visible:=false;
Tree View:=false;
Bevel1:=false;

Как все же кнопку прописать?

merax · 05.11.2007, 10:30

Код:

form1.BitBtn1.Visible := false;

Фантазия рулит..
Делаешь два баттона одного размера, накладываешь друг на друга... при нажатии на один он скрывает меню и самого себя, и делает видимым второй... и наоборот... все просто.

Stilet · 05.11.2007, 11:07

Цитата:

Делаешь два баттона одного размера, накладываешь друг на друга

А по-моему проще так как Алекс сказал в пятом посте...
типа

Panel1.Visible:=not Panel1.Visible;
Tree View:=not Tree View;
Bevel1:= not Bevel1;

(Это в OnClick...)

Yurek · 05.11.2007, 12:18

Panel1.Visible:=not Panel1.Visible;
Tree View:=not Tree View;
Bevel1:= not Bevel1;

Cпасибо все канает.

02.11.2007, 16:27	#1
Yurek Пользователь Регистрация: 27.08.2007 Сообщений: 24	Кнопка BitBtn Help я чайникб, прописал OnClick исчезновение меню.Как прописать чтоб при повторном нажатии меню вернулось на прежнее место. Последний раз редактировалось Yurek; 02.11.2007 в 16:32.

02.11.2007, 16:30	#2
Omedus Пользователь Регистрация: 01.11.2007 Сообщений: 27	Можешь сделать кнопку и при нажатии на неё если меню видно, то оно исчезает, а иначе - появляется. Так же можешь сделать при нажатии на форму (тот же OnClick). Ещё есть вариант при нажатии на определённую кнопку клавиатуры меню исчезает/появляется (OnKeyDown). Ну или сделай так: при нажатии на меню - меню пропадает, а вот если нажать на форму без меню - оно восстанавливается. Вариантов много. *Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.* Scientia potentia est Последний раз редактировалось Omedus; 02.11.2007 в 16:42.

02.11.2007, 16:53	#3
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Что за меню ? ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

05.11.2007, 10:30	#8
merax Форумчанин Регистрация: 27.12.2006 Сообщений: 955	Код: `form1.BitBtn1.Visible := false;` Фантазия рулит.. Делаешь два баттона одного размера, накладываешь друг на друга... при нажатии на один он скрывает меню и самого себя, и делает видимым второй... и наоборот... все просто. Последний раз редактировалось merax; 05.11.2007 в 10:32.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Caption в BitBtn!!!	rivers	Компоненты Delphi	14	11.08.2008 15:36
кнопка windows	Михаил Юрьевич	Общие вопросы Delphi	3	11.02.2008 18:48
кнопка как ссылка	bill	HTML и CSS	3	05.01.2008 12:57
BitBtn и ее Bitmap	Yogik™	Помощь студентам	2	19.11.2007 17:12
Чем можно заменить объект BitBtn?	frai	Компоненты Delphi	3	14.04.2007 12:42

02.11.2007, 17:10	#4
Yurek Пользователь Регистрация: 27.08.2007 Сообщений: 24	Ну типа меню. TreeView+Panel+Bevel (возможно ли это все в один элемент). Хотелось бы на кнопку. Но если нет буду шота мутить. Спасибо.

02.11.2007, 18:53	#6
andrey4623 Форумчанин Регистрация: 31.05.2007 Сообщений: 266	я думал, как бы сделать свое меню, а что TreeView+Panel+Bevel - не знал

05.11.2007, 12:18	#10
Yurek Пользователь Регистрация: 27.08.2007 Сообщений: 24	Panel1.Visible:=not Panel1.Visible; Tree View:=not Tree View; Bevel1:= not Bevel1; Cпасибо все канает.