procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
if (X>=8 or X<=241) and (Y>=816 or Y<=824) then
begin
…
end;
end;
X>=8 or X<=241 после этого он мне пишит "неприводимые типы" или что-то в этом роде. самую сложную часть программы написал нормально а на этом завис. подскажите пожалуйста
8 марта 2010 в 0:05
посмотри на условие. Оно выполняется при любом Х и У
7 марта 2010 в 15:03
тоже часто на этом резался
7 марта 2010 в 14:02
нифига я тупанул! …спасибо
7 марта 2010 в 13:05
if ((X>=8) or (X<=241)) and ((Y>=816) or (Y<=824)) then
пользуйся