|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перемещение объектов.
Здраствуйте, помогите решить следующую проблему.
Мне нужно переместить по форме панель. Я указал в ней следующие свойства: DragKind=dkDock, DragMode=dmAutomatic, но после перемещения у панели появляется заголовок с кнопкой закрытия. Как сделать перемещение объекта так чтобы он сохранил свою первоначальную форму? |
#2
|
||||
|
||||
Код:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Panel1.Perform( WM_SYSCOMMAND, $F012, 0 ); end; |
#3
|
|||
|
|||
Спасибо, с панелью разобрался.
Теперь возникла другая проблема. Нужно переместить рисунок, я сделал следующим образом: ... private DragPoint : TPoint; ... procedure TForm1.RxGIFAnimator1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin DragPoint:=Point(X , Y ); end; procedure TForm1.RxGIFAnimator1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin IF (ssLeft IN Shift) Then Begin TControl(Sender).Left:=TControl(Sender).Left + x - DragPoint.X; TControl(Sender).Top :=TControl(Sender).Top + y - DragPoint.y; End; end; ... но при перемещении он начинает "мелькать", как можно избавится от мельтешения? |