Скачать: CL | DM;

Как перетащить форму?   Найти похожие ветки 

← →
Lamer'Ok   (2005-08-28 17:11) [0]

Как перетащить окно по экрану, если программа состоит только из клиентской части (т.е. не имеет строки заголовка)?
Стоит учитывать, что по всей площади формы растянут рисунок (Timage), так вот, как перетаскивать форму, когда с зажатой левой кнопкой мыши тянут курсор по экрану?
Вопрос ясен?

---

← →
Antonn ©   (2005-08-28 17:41) [1]

procedure TSkin_Form._MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE : Longint = $F012;
begin
  if Button <> mbRight then begin
  ReleaseCapture;
  SendMessage(((Sender as TImage).Parent as Tform).Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;       // ^ тут наверно надо поменять, я из проекта выдернул, сам не проверял
end;
end;

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.084 c