Здоровеньки булы, -=[-B0rMaN-]=-!
10 мая 2004 г., понедельник, 02:52:42 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "WinAPI|Delphi - Moving",
в котором сообщалось следующее:
B> А вот еще вопрос... в догонку.
B> Если на поле есть скажем Label, как тогда?
B> Вот нажму я на этот Label и потяну и что?
Ну если вопрос стоит так то вот такой код (стопудово работает и на
TPanel, и на Tlabel, и на TButton):
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;
Затем у всех Control-ов ставишь в ObjectInspector
OnMouseDown=FormMouseDown и радуешься жизни.