Перемещение Label а в RunTime е

← →
Митяй2 (2004-01-13 18:37) [0]

Привет!
Как дать пользователю перемещать Label во время выполнения программы?
Для элементов окна, являющиихся дочерними к TWinControl срабатывает:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DRAGMOVE = $F012; begin ReleaseCapture; Memo1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end;
А так как TLabel - дочерний к TGraphicControl, то подобный подход не срабатывает.
Думаю из-за этого.

Пишу
Label1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);но это не срабатывает!

Как быть?

Всем кто сюда глянул - благодарен.

← →
DVM © (2004-01-13 18:38) [1]

Используй вместо Label StaticText

← →
Sandman25 © (2004-01-13 18:39) [2]

Я обрабатывал OnMouseDown и OnMouseMove, двигал "ручками"

← →
Митяй2 (2004-01-13 18:43) [3]

Ладно, спасибо!

Перемещение Label а в RunTime е Найти похожие ветки