Текущий архив: 2004.01.23;
Скачать: 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 вся ветка
Текущий архив: 2004.01.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
