Delphi - база знаний


Как таскать форму за метку?


Как таскать форму за метку?





procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012; { a magic number }  
begin
ReleaseCapture;  
Form1.perform(WM_SysCommand, SC_DragMove, 0);  
end;

Автор ответа: TAPAKAH
Взято с Vingrad.ru





Начало  Назад  Вперед