2 if в одном обработчике. - Общие вопросы Delphi

egorzenit · 05.03.2012, 20:05

Здравствуйте дорогие гуру Delphi.. сообственно нужна помощь от вас..

PHP код:


			
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked  then
Form2.Show;
if RadioButton2.Checked then
Form3.Show;
if RadioButton1.Checked and RadioButton2.Checked = false then
ShowMessage ('Select The language');
end;

Почему при нажатии на любую radio button все равно выскакивает сообщение о выборе языка? если там условие что- если не та и не та не нажаты то выдаем сообщение..

FaTaL · 05.03.2012, 20:14

Поставь точку с запятой после Form3.Show и после ShowMessage ('Вот так то')

Только смысл какой, что ты в одном обработчике проверяешь одно и то же но с разными действиями

Код:

if RadioButton1.Checked then

egorzenit · 05.03.2012, 20:18

Вопросик уже сменился)

Hacker19_90 · 05.03.2012, 20:39

Цитата:

Почему при нажатии на любую radio button все равно выскакивает сообщение о выборе языка?

Потому что это условие

Цитата:

Код:

if RadioButton1.Checked and RadioButton2.Checked = false then

Мягко скажем кривое!
попробуй так

Код:

if not(RadioButton1.Checked) and not(RadioButton2.Checked) then

egorzenit · 05.03.2012, 20:42

Спасибо!!!

egorzenit · 05.03.2012, 20:44

Еще такой вопрос.. что нужно написать в uses,что-бы интерфейс программы имел красивый вид в Win7? не помню вроде была какая-то команда..

Hacker19_90 · 05.03.2012, 20:46

Цитата:

что-бы интерфейс программы имел красивый вид в Win7

ммм.... красивый вид!
Версия делфи?

egorzenit · 05.03.2012, 20:52

Delphi 7
=)

3D Hunter · 05.03.2012, 20:59

ну если у ТС вид некрасивый, то явно не из последних. ТС, пропиши XPMan.

Зод · 05.03.2012, 21:16

Xpman на семерке вроде глючит не много, не для семерки писан. Красивый в каком плане? Может тебе лучше за место кнопок картинки накидать или не в этом смысл?

05.03.2012, 20:05	#1
egorzenit Пользователь Регистрация: 05.07.2011 Сообщений: 60	2 if в одном обработчике. Здравствуйте дорогие гуру Delphi.. сообственно нужна помощь от вас.. PHP код: `procedure TForm1.Button1Click(Sender: TObject); begin if RadioButton1.Checked then Form2.Show; if RadioButton2.Checked then Form3.Show; if RadioButton1.Checked and RadioButton2.Checked = false then ShowMessage ('Select The language'); end;` Почему при нажатии на любую radio button все равно выскакивает сообщение о выборе языка? если там условие что- если не та и не та не нажаты то выдаем сообщение.. Последний раз редактировалось egorzenit; 05.03.2012 в 20:15. Причина: Первую ошибку понял возникла вторая..

05.03.2012, 20:14	#2
FaTaL Участник клуба Регистрация: 09.11.2007 Сообщений: 1,761	Поставь точку с запятой после Form3.Show и после ShowMessage ('Вот так то') Только смысл какой, что ты в одном обработчике проверяешь одно и то же но с разными действиями Код: `if RadioButton1.Checked then`

05.03.2012, 20:59	#9
3D Hunter Сумрачная тень Форумчанин Регистрация: 05.03.2009 Сообщений: 689	ну если у ТС вид некрасивый, то явно не из последних. ТС, пропиши XPMan. "ковыряю изнутри" (с)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
в обработчике кнопки не видны txtBox'ы	nuevegramodelamor	Общие вопросы .NET	3	26.11.2010 08:46
Три в одном	bwitcher	Помощь студентам	14	19.11.2010 18:15
Спрятать панель после отсчета времени в обработчике OnShow формы	Человек_Борща	Общие вопросы Delphi	8	22.05.2010 17:49
Сайты на одном IP	Глок	Работа с сетью в Delphi	3	13.10.2008 00:28
Как мне в обработчике хука узнать хендл окна?	vitalik007	Win Api	5	16.05.2008 09:34

05.03.2012, 20:18	#3
egorzenit Пользователь Регистрация: 05.07.2011 Сообщений: 60	Вопросик уже сменился)

05.03.2012, 20:42	#5
egorzenit Пользователь Регистрация: 05.07.2011 Сообщений: 60	Спасибо!!!

05.03.2012, 20:44	#6
egorzenit Пользователь Регистрация: 05.07.2011 Сообщений: 60	Еще такой вопрос.. что нужно написать в uses,что-бы интерфейс программы имел красивый вид в Win7? не помню вроде была какая-то команда..

05.03.2012, 20:52	#8
egorzenit Пользователь Регистрация: 05.07.2011 Сообщений: 60	Delphi 7 =)

05.03.2012, 21:16	#10
Зод Форумчанин Регистрация: 25.08.2011 Сообщений: 140	Xpman на семерке вроде глючит не много, не для семерки писан. Красивый в каком плане? Может тебе лучше за место кнопок картинки накидать или не в этом смысл?