Текущий архив: 2005.09.18;
Скачать: 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 вся ветка
Текущий архив: 2005.09.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.045 c
