Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
kazzz
7 / 7 / 0
Регистрация: 17.11.2010
Сообщений: 59
#1

Активация кнопки, верхняя панель окна

28.02.2011, 16:40. Просмотров 2372. Ответов 10
Метки нет (Все метки)

Учусь работать с делфи. Понемногу разбираюсь. Собрал небольшую программку.. Теперь вопрос: как сделать так, чтобы кнопка Close Или активировалась или появлялась только после нажатия всех 4х галочек? Чтобы появлялась из ниоткуда предпочтительнее. И как убрать верхнюю панельку из окошка с кнопками свернуть, закрыть... Заранее благодарен.
Скриншот окна:
[IMG]http://*************/clip/m60222/1298899566-clip-11kb.png[/IMG]
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2011, 16:40
Ответы с готовыми решениями:

Верхняя панель в приложении
В верхней панели приложения, по стандарту находятся кнопки, свернуть,...

От чего начинает расти верхняя панель в длинну в Делфи, (сама по себе) ?
В общем было один раз, на другой системе и вообще ПК можно сказать. И сейчас...

Активация кнопки по нажатию кнопки)
Как сделать чтобы по нажатии одной кнопки становилась активной вторая??

Активация кнопки
Помогите пожалуйста. Есть Edit1 и Edit2 нужно что бы пока поля не заполнены то...

Активация кнопки по времени
Привет, нужна помощь, как бы так сделать чтобы не активная кнопка...

10
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
28.02.2011, 16:43 #2
Цитата Сообщение от kazzz Посмотреть сообщение
И как убрать верхнюю панельку из окошка с кнопками свернуть, закрыть...
Изучай свойства формы!!!
1
kazzz
7 / 7 / 0
Регистрация: 17.11.2010
Сообщений: 59
28.02.2011, 16:53  [ТС] #3
Как раз изучаю. Если бы поиски увенчались успехом - и не спрашивал бы...
0
dimafe6
Sniper
96 / 64 / 4
Регистрация: 28.01.2010
Сообщений: 326
28.02.2011, 17:07 #4
Вот пример того, как закрывать форму только тогда, когда активированы все 4 чекбокса Primer.rar.
Чтобы убрать верхнюю панельку из окошка с кнопками свернуть, закрыть:
1. Выделяешь форму.
2. Ищешь параметр Border icons в инспекторе обектов
3. biSystemMenu = False;(Отключает все кнопки управления)
или выбираешь Border Style = bsSizeToolWin(будет только кнопка закрыть)
или выбираешь Border Style = bsNone (тогда вообще окна не будет, только рабочая область)
експерементируй ))
1
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
28.02.2011, 17:11 #5
Попробуй так...
Delphi
1
2
3
4
5
6
7
procedure TForm1.FormCreate(Sender: TObject);
begin
   SetWindowLong( Handle, GWL_STYLE,
                             GETWINDOWLONG( Handle, GWL_STYLE ) and  ( not WS_CAPTION ) );
   Height := ClientHeight;
   Width := ClientWidth;
end;
1
dimafe6
Sniper
96 / 64 / 4
Регистрация: 28.01.2010
Сообщений: 326
28.02.2011, 17:12 #6
Цитата Сообщение от Mad_Dog Посмотреть сообщение
Изучай свойства формы!!!
Зачем же так сурово? )) все мы с чего-то начинали))
1
flatgad
geJI<|>eP
186 / 186 / 18
Регистрация: 22.07.2010
Сообщений: 733
28.02.2011, 17:12 #7
вот тебе код с чеками:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then begin
  if (CheckBox2.Checked=true) and (CheckBox3.Checked=true) and (CheckBox4.Checked=true)
  then ShowMessage('YPA');
  end;
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then begin
  if (CheckBox1.Checked=true) and (CheckBox3.Checked=true) and (CheckBox4.Checked=true)
  then ShowMessage('YPA');
  end;
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then begin
  if (CheckBox1.Checked=true) and (CheckBox2.Checked=true) and (CheckBox4.Checked=true)
  then ShowMessage('YPA');
  end;
end;
 
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if CheckBox4.Checked then begin
  if (CheckBox1.Checked=true) and (CheckBox2.Checked=true) and (CheckBox3.Checked=true)
  then ShowMessage('YPA');
  end;
end;
Вот где убирается шапка окна ставь bsNone
Активация кнопки, верхняя панель окна
1
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
28.02.2011, 17:20 #8
Цитата Сообщение от dimafe6 Посмотреть сообщение
Зачем же так сурово? )) все мы с чего-то начинали))
Не сурово, а весело! Как к нам так и мы к им...
Заранее благодарен.
1
kazzz
7 / 7 / 0
Регистрация: 17.11.2010
Сообщений: 59
28.02.2011, 17:21  [ТС] #9
Спасибо всем, Все вроде получается)
0
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
28.02.2011, 17:22 #10
flatgad, а к чему такие нагромождения типа

Delphi
1
if (CheckBox2.Checked=true) and (CheckBox3.Checked=true) and (CheckBox4.Checked=true)
уж куда лаконичнее

Delphi
1
if CheckBox2.Checked and CheckBox3.Checked and CheckBox4.Checked
1
flatgad
geJI<|>eP
186 / 186 / 18
Регистрация: 22.07.2010
Сообщений: 733
28.02.2011, 17:33 #11
Цитата Сообщение от Mad_Dog Посмотреть сообщение
flatgad, а к чему такие нагромождения типа

Delphi
1
if (CheckBox2.Checked=true) and (CheckBox3.Checked=true) and (CheckBox4.Checked=true)
уж куда лаконичнее

Delphi
1
if CheckBox2.Checked and CheckBox3.Checked and CheckBox4.Checked
Привычка старая осталась оно просто ни на что не влияет а для меня понятнее .
0
28.02.2011, 17:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 17:33

Активация кнопки по поролю
Всем привет! С Delphi знаком не давно, подскажите как сделать, чтобы кнопка...

Активация второго окна... помогите
Помогите зделать такую функцию : У меня есть Форма1 и Форма 2 - первая форма...

Активация кнопки в определённое время
Доброго всем времени суток. суть проблемы: есть форма, на ней кнопка как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru