Помогите подправить код

[Sony_boy]

Здарова. В общем есть код, который определяет цвет в заданных координатах. Так вот в чем суть, нужно: вот определил цвет нужного мне элемента. И что бы если цвет у элемента изменился на ЛЮБОЙ другой, срабатывало нужное мне условие. Как это осуществить? Приходит на ум, что нужно из функции DesktopColor передать значение в переменную, и делать проверку на изменение. Вот только как? Вот собственно код:

function DesktopColor(const X, Y: Integer): TColor;
var
  c: TCanvas;
begin
  c := TCanvas.Create;
  try
    c.Handle := GetWindowDC(GetDesktopWindow);
    Result := GetPixel(c.Handle, X, Y);
  finally
    c.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: Integer;
begin
  x := 10;
  y := 10;
  Label1.Caption := IntToStr(DesktopColor(x, y));
  Label1.Font.Color := DesktopColor(x, y);
end;
 
end.

[Sibedir]

А что не так? Работает же.
Если проблема с тем КОГДА делать проверку: используй компонент Timer и переменную для хранения цвета и через заданный интервал времени проверяй.
Если проблема с тем КАК, то ... А чё там может не получиться?

[Sony_boy]

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

А что не так? Работает же.

Код то работает, но я выше описал что нужно мне добавить в код. Есть идея, после того как помещу значение цвета из функции в переменную, сверять по таймеру изменился ли цвет у того элемента, у которого я определил цвет. Вот только вопрос-как это сделать???

[Sony_boy]

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

А что не так? Работает же.
Если проблема с тем КОГДА делать проверку: используй компонент Timer и переменную для хранения цвета и через заданный интервал времени проверяй.
Если проблема с тем КАК, то ... А чё там может не получиться?

Вот, я тоже так подумал. Что я сделал: завел переменную и присвоил значение функции.

 d:=DesktopColor(x, y);

Вопрос-как осуществить теперь проверку этой переменной, изменилось ли значение

[Sibedir]

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

...вопрос-как это сделать???

делай РАЗ

... помещу значение цвета из функции в переменную...

делай ДВА

... сверять по таймеру изменился ли цвет...

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

Вот, я тоже так подумал. Что я сделал: завел переменную и присвоил значение функции.

 d:=DesktopColor(x, y);

Вопрос-как осуществить теперь проверку этой переменной, изменилось ли значение

 if d <> DesktopColor(x, y) then