Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.10.2015, 15:35   #1
Sony_boy
Пользователь
 
Регистрация: 25.09.2015
Сообщений: 20
По умолчанию Условие не работает

Здарова. Вот код
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, d: Integer;
begin
  x := 920;
  y := 680;
  Label1.Caption := IntToStr(DesktopColor(x, y));
  d:=DesktopColor(x, y);
  Label1.Font.Color := d; 
  if d <> DesktopColor(x, y) then
  begin
end
else
begin
form1.close;
end;
end;
Что он должен делать: при запуске проекта, определить цвет в указанных координатах. Он выполняет. При изменении цвета в указанных координатах, должно сработать условие и выполниться действие(в моём случае закрытие формы). Вот именно это не работает. В чём ошибка в коде?

Последний раз редактировалось Аватар; 03.10.2015 в 16:04.
Sony_boy вне форума Ответить с цитированием
Старый 04.10.2015, 03:40   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
В чём ошибка в коде?
интересно, на сколько ещё форумов ты запостил этот кусок говнокода?

1543736.png

Мне, вот, почему-то, кажется что функция DesktopColor() здесь при равных икс и ыгрек вернёт то же самое значение. И поэтому, условие
Код:
if d <> DesktopColor(x, y) then
выполнится чуть позже, чем никогда.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 04.10.2015, 08:02   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
При изменении цвета в указанных координатах, должно сработать условие и выполниться действие
Кроме всего сказанного почему не написать так:
Код:
if d <> DesktopColor(x, y) then Close;
Твоя система IF вообще какая-то не такая. Ты игру хакаешь? - у тебя не выйдет.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не работает условие ilyxaaa Общие вопросы Delphi 10 22.09.2014 11:40
Не работает условие поиска Scorpuha БД в Delphi 10 23.02.2014 23:11
Не работает условие. Почему? Dmitriy.G Общие вопросы по Java, Java SE, Kotlin 2 03.11.2012 21:41
Не работает условие!!! VintProg Общие вопросы C/C++ 5 12.08.2011 04:40
[запрос к Бд] не работает условие nuevegramodelamor PHP 2 26.04.2011 14:17