[Sex_1C]

Здравствуйте дамы и господа. Имеется код

Код:

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 := 650;
  y := 476;
  Label1.Caption := IntToStr(DesktopColor(x, y));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Timer2.Interval:=1000;
  form1.Timer2.Enabled:=true;
 
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var x,y: word;
begin
if Label1.Caption <> '6684876' then
x := 951 ;
y := 862 ;
SetCursorPos(x, y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0,  0, 0);
mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0);
end;

Он определяет по нажатии на кнопку цвет в указанных координатах.И записывает его в лэйбел А по нажатию на другую кнопку, запускается таймер который проверяет цвет в лэйбел, и если он не совпал с указанным, то происходит клик в нужном месте. Проблема: после нажатию на эту кнопку, клик всё равно происходит, хоть и цвет в лэйбеле не менялся. В чем проблема?

[lmikle]

Потому что кто-то не знает что такое составвной оператор и зачем вообще нужны эти странные слова begin и end:

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
var x,y: word;
begin
  if Label1.Caption <> '6684876' then
    begin
      x := 951 ;
      y := 862 ;
      SetCursorPos(x, y);
      mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0,  0, 0);
      mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0);
    end;
end;

[Sex_1C]

А что не так с составным оператором?

[lmikle]

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

А что не так с составным оператором?

То, что его нет.
Я тебе дал правильный вариант.

[Sex_1C]

А какой он, этот составной оператор? Например:

Код:

begin
begin
end;
end

Вот такой?

[Sex_1C]

Спасибо за помощь! Но всё равно, объясни мне как 1Снику, что не так с составным оператором?

[lmikle]

Когда тебе надо, что бы компилятор воспринимал несколько команд как логически одну, то они объединяются в составной оператор. Начинается такой оператор с ключевого слова begin и заканчивается ключевым словом end.
Теперь посмотрим на оператор if. Сначала идет ключевое слово if, потом условие (кстати, если условие составное, то его части обрамляются круглыми скобками), потом ключевое слово then для случая истинности условия и else для случая его, условия, ложности. А вот затем идет оператор. ОДИН. Т.е. если тебе надо сделать несколько действий, то этот ОДИН оператор должен быть составным.