no0k
05.07.2011, 19:02
procedure TForm1.Timer1Timer(Sender: TObject);
var
Сur: TRect;
begin
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or
SWP_NOMOVE or SWP_NOSIZE);
Сur := Rect(Form1.Left + 0, Form1.Top + 0, Form1.Left + Form1.Width - 0,
Form1.Top + Form1.Height - 0);
ClipCursor(@Сur);
end;
Трабла в сточке красного цвета...
Добавлено через 8 минут
Всё разобрался просто переменную Cur переименовал правда во всем коде пришлось переименовывать но пох)
var
Сur: TRect;
begin
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or
SWP_NOMOVE or SWP_NOSIZE);
Сur := Rect(Form1.Left + 0, Form1.Top + 0, Form1.Left + Form1.Width - 0,
Form1.Top + Form1.Height - 0);
ClipCursor(@Сur);
end;
Трабла в сточке красного цвета...
Добавлено через 8 минут
Всё разобрался просто переменную Cur переименовал правда во всем коде пришлось переименовывать но пох)