Главная страница
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.031 c
14-1119712856
lookin
2005-06-25 19:20
2005.07.18
Открытая страница и дополнительный трафик...


14-1119521707
BiN
2005-06-23 14:15
2005.07.18
Опрос. Статьи на какие темы вы хотели бы видеть на delphimaster?


5-1090583947
Death_R
2004-07-23 15:59
2005.07.18
Создание компонент: использование свойств одного контрола в друго


4-1116593693
Rius
2005-05-20 16:54
2005.07.18
Панели групп как в Windows Explorer через MS Visual Styles API ?


4-1116856275
lgcpiton
2005-05-23 17:51
2005.07.18
EPL2 команды из Delphi