Ребят, подскажите, как можно "таскать" TGroupBox по форме

← →
mmms (2005-02-22 14:16) [0]

мышкой? DragDrop+F1 смотрел, dragmode - dmAutomatic, а вот как обработать события?

← →
Cosinus © (2005-02-22 14:23) [1]

> а вот как обработать события?
В смысле?

← →
Skier © (2005-02-22 14:28) [2]

>mmms (22.02.05 14:16)
Найди в Инете компонент TStretchHandle и таскай на здоровье...

← →
mmms (2005-02-22 14:30) [3]

Ну что там делать по отпусканию, что при нажатию, какой смысл то ещё?
Что нашел, то вот это:
procedure TForm1.GroupBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; GroupBox1.Perform(WM_SysCommand, SC_DragMove, 0); end;
Что то не пашет она у меня.

← →
mmms (2005-02-22 14:31) [4]

[2] Skier © (22.02.05 14:28)
Посмотрю, спасибо.

http://z-ol.chat.ru/cmplib/handles.zip

← →
mmms (2005-02-22 14:38) [6]

Да, я его нашел уже, в яндексе 3м вышел. Как раз то что надо!
Благодарю.

Ребят, подскажите, как можно "таскать" TGroupBox по форме Найти похожие ветки