Как двигать обьекты?

← →
Brack (2005-07-02 20:35) [0]

Можно ли перемещать обьект(к примеру Label) в ходе работы программы, изменив при этом определенные свойства?

← →
begin...end © (2005-07-02 21:07) [1]

Можно. См. в справке описание класса TControl: свойств Left и Top, а также метода SetBounds.

← →
lookin © (2005-07-02 21:09) [2]

А какие свойства?

← →
isasa © (2005-07-02 22:35) [3]

Таскать форму за метку?

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; { a magic number } begin ReleaseCapture; Form1.perform(WM_SysCommand, SC_DragMove, 0); end;----------

Для панели (suPanel) соответственно
procedure TForm1.suPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; suPanel.Perform(WM_SYSCOMMAND, $F012, 0); end;

← →
isasa © (2005-07-02 22:39) [4]

Да!
Свойство, suPanel должно быть
DragMode:=dmManual

Да! :))))

OnMouseDown:=TForm1.suPanelMouseDown

← →
Brack (2005-07-05 00:03) [6]

Вот сам решил эту задачку, оказалось все просто:

MouseMove(Shift: TShiftState; X, Y: Integer);
begin
if MDownPl=True then
begin
GetCursorPos(p);
otklX:=p.X-Left;
otklY:=p.y-top;
MDownPl:=False;
end;
if MDown=True then
begin
GetCursorPos(p);
Left:=p.X-otklX;
Top:=p.Y-otklY;
end;
end;

MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer);
begin
MDown:=True;
MDownPl:=True;
end;

MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer);
begin
MDown:=False;
end;

Как двигать обьекты? Найти похожие ветки