| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Определение позиции курсора относительно экрана [D7]

LLlMblra ©   (2005-06-30 13:12:00) 

Задача сделать перетаскиваемую форму у которой BorderStyle = bsNone. На форме полно компонентом и перетаскивание делается для всех. Но MouseDown возврвщает координаты относительно компонента, как перевести их в координаты экрана??

---

gydvin   (2005-06-30 14:01:00) [1]

только control нажми

---

gydvin   (2005-06-30 14:00:00) [2]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
pt : TPoint;

begin
if ssCtrl in Shift then begin
ReleaseCapture;
SendMessage(form1.Handle, WM_SYSCOMMAND, 61458, 0);
{$IFNDEF WIN32}
GetCursorPos(pt);
SendMessage(form1.Handle,
WM_LBUTTONUP,
MK_CONTROL,
Longint(pt));
{$ENDIF}
end;end;

---

Игорь Шевченко   (2005-06-30 13:14:00) [3]

ClientToScreen

---

Наверх