Как таскать форму за метку?
Falk0ner, вс, 06/07/2008 - 15:34.
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012; { a magic number }
{©Drkb v.3(2007): www.drkb.ru}
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012; { a magic number }
{©Drkb v.3(2007): www.drkb.ru}
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;
Автор ответа: TAPAKAH
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий