Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.03;
Скачать: CL | DM;

Вниз

ClipCursor не могу разобраться с координатами   Найти похожие ветки 

 
Al   (2008-07-03 10:04) [0]

Здраствуйте.
Не могу никак разобраться с координатами процедуры  procedure ClipCursor(Rect: LRect); Задача банальна при нажатии одной кнопки привязать курсор к другой. С SetCursorPos все понятно.

{GetWindowRect (Button2.Handle, Rect);
SetCursorPos (Rect.Left + Round (Button2.Width/2), Rect.Top + Round (Button2.Height/2));}
а с clipcursor проблема. Напишите кому не сложно примеры по аналогии ,


 
Rouse_ ©   (2008-07-03 10:26) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
 ARect: TRect;
begin
 GetWindowRect(Button2.Handle, ARect);
 SetCursorPos(ARect.Left + Button2.Width shr 1,
   ARect.Top + Button2.Height shr 1);
 ClipCursor(@ARect);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ClipCursor(nil);
end;


 
Al   (2008-07-03 16:34) [2]

Rouse_ © спасиб большое



Страницы: 1 вся ветка

Текущий архив: 2008.08.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
11-1191869034
Jon
2007-10-08 22:43
2008.08.03
WM_THEMECHANGED


15-1213881136
Ega23
2008-06-19 17:12
2008.08.03
packed object - в какой версии Delphi появился?


2-1215047362
Abcdef123
2008-07-03 05:09
2008.08.03
Как заставить приложение не выполняться?


2-1215154260
uno-84
2008-07-04 10:51
2008.08.03
Проблема с переходом по ссылке


6-1190972431
botaniQ
2007-09-28 13:40
2008.08.03
Переход в TWebBrowser...