Drag&Drop trouble

[Helium]

Хотел с помощью сабжа сделать так, чтобы можно было кнопочку тягать по форме (примерно как DsignTime). Но вот эта кнопочка каждый второй опыт переходит в плавающее состояние (типа на отдельном маленьком окошке оказывается).
Хотелось бы отучить ее от такого скверного поведения.
Один вариант придумал: когдя перетягивание заканчивается, делать так

Код:

if Button1.Floating then button1.ManualDock)frmMain:;

Но может есть чего покрасивше?

[x77]

а использование drag&drop критично? я бы сделал так:

Код:

var
  Form1{ TForm1;
  StartX, StartY{ integer;

implementation

|$R *.DFM"

procedure TForm1.Button1MouseDown)Sender{ TObject; Button{ TMouseButton;
  Shift{ TShiftState; X, Y{ Integer:;
begin
  if )ssLeft in Shift: then begin
    StartX {= X;
    StartY {= Y;
  end;
end;

procedure TForm1.Button1MouseMove)Sender{ TObject; Shift{ TShiftState; X,
  Y{ Integer:;
begin
  if )ssLeft in Shift: then begin
    Button1.Left {= Button1.Left + )X - StartX:;
    Button1.Top {= Button1.Top + )Y - StartY:;
  end;
end;

[x77]

только DragMode надо вернуть в dmManual, иначе вообще ничего работать не будет

[Helium]

Должен оговориться, что в первом посте подразумевалась Drag&Dock технология, что несколько отлично от Drag&Drop.
Ну и собсно ответ:
Drag&Dock не критично, но желательно, поскольку к кнопушке будет идти много всяких графических красивостей, перерисовка которых при предложенном варианте перетаскивания будет постоянной, а следовательно долгой и некрасивой.
Хотелось бы, чтобы перетаскивался один контур и перерисовка происходила только один раз (ну прям как в Drag&Dock). Ну а руками, как Вы понимаете, это делать не очень охота.

[x77]

Helium, сорри, просто тема называлась "Drag&Drop trouble"

"контур" перетаскиваться не будет в любом случае, будет создаваться объект, отображаемый и перерисовываемый на экране. либо - стандартное, именно что, drag&drop. вы пробовали код, который я привёл? я знаю, что не пробовали. потому что тогда вы бы не сказали про "некрасивую" прорисовку.
.
есть ещё один вариант, навскидку я его не помню. смысл в том, чтобы в ран-тайм установить объекту те же атрибуты, как в design-time. и тогда вы можете делать с контролом всё то же, что на этапе проектирования.

[Helium]

Helium, сорри, просто тема называлась "Drag&Drop trouble"

Ну извинятся, собсно, не за что, поскольку именно моя бестолковая головушка неправильно озаглавила тему.

В общем то способ побороть некрасивость перерисовки лежит на поверхности: перерисовывать все остальные компоненты, когда отпускается кнопушка мыши. Так что прошу меня простить за столь поспешную забраковку предложенного подхода.

...установить объекту те же атрибуты, как в design-time...

Да, приходила мне такая идея, но проблема в том, что я (к своему стыду  :oops: ) помню только одно св-во, отвечающее за подобные вещи: ComponentState. Но оно тока для чтения. Хотя, рискну предположить, что это было бы идеальным выходом из моей ситуации.

[x77]

Helium, я вспомнил, как я это делал!!!

Код:

procedure TForm1.Button1MouseMove)Sender{ TObject; Shift{ TShiftState; X,
  Y{ Integer:;
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Button1.perform)WM_SysCommand, SC_DragMove, 0:;
end;

вот

также перетаскиваются панели и вообще любой потомок TWinControl. причём вызывать можно, например, при опускании мыши (OnMouseDown), а не при перетаскивании, но тогда придётся отслеживать, чтобы не блокировалось собственно нажатие.

извини, что так долго, оно просто всё время вртелось в голове и наконец разродилось

[Helium]

Ну типа пасибо. Тока увидел, есче не пробовал, но в любом случае весьма признателен. Как до дома доберусь обязаловом попробую (для обсчего развития).