Как перетащить форму?
Lamer'Ok © (2005-08-28 17:11:00)
Как перетащить окно по экрану, если программа состоит только
из клиентской части (т.е. не имеет строки заголовка)?
Стоит учитывать, что по всей площади формы растянут рисунок
(Timage), так вот, как перетаскивать форму, когда с зажатой левой
кнопкой мыши тянут курсор по экрану?
Вопрос ясен?
Antonn (2005-08-28 17:41:00) [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;
Наверх 
ЧАТ |
Орешник |
|
