Скачать: CL | DM;

Перемещение 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c