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

Вниз

Определение позиции курсора относительно экрана   Найти похожие ветки 

 
LLlMblra   (2005-06-30 13:12) [0]

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


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

ClientToScreen


 
gydvin   (2005-06-30 14: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;


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

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



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

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

Наверх




Память: 0.47 MB
Время: 0.027 c
3-1118057488
makle
2005-06-06 15:31
2005.07.18
Сжать и сохранить базу Access


9-1112792754
anat
2005-04-06 17:05
2005.07.18
OpenGL нужна помощь


3-1118135822
-=snoop=-
2005-06-07 13:17
2005.07.18
ADOConnect просит авторизации


3-1118294178
msguns
2005-06-09 09:16
2005.07.18
Проблема чтения данных Paradox 3.5 (DOS)


14-1116161331
OSokin
2005-05-15 16:48
2005.07.18
Вечный вопрос: хостинг...