Есть обьект на форме допустим GroupBox , я ему установил свойс. D

← →
denisww © (2003-01-15 21:37) [0]

Есть обьект на форме допустим GroupBox , я ему установил свойс. DragMode - auto, DragKind-dkDock(получаеться можно обьект стянуть с формы)Вопрос:как стянуть програмно сей обьект ?

есть думка типа:
GroupBox.BeginDrag(True);

??????????????????????

GroupBox.EndDrag(False);

← →
denisww © (2003-01-15 22:44) [1]

требуеться стянуть обьект как бы по умолчанию

← →
denisww © (2003-01-15 22:47) [2]

неплохо было бы по координатам установить окно

← →
Набережных С. (2003-01-15 23:24) [3]

GroupBox.Dock(TargetWinControl,Rect(0,0,100,100))

← →
denisww © (2003-01-16 10:51) [4]

With GroupBox do Begin
HostDockSite:= FloatingDockSiteClass.Create(self);
(HostDockSite as FloatingDockSiteClass).BoundsRect:=
rect(10,10,100,100);
end;
en

Большая благодарность [vidiv]

← →
denisww © (2003-01-17 16:53) [5]

ну не очень хорошо работает- некрасиво , а есть ещё варианты?

Var R:TRect;

R:=rect(10,10,100,100);
ManualFloat(R);
ManualDock(HostDockSite,Nil,alnone);

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Есть обьект на форме допустим GroupBox , я ему установил свойс. D Найти похожие ветки