Delphi Forms in LMDDockSite

Wiebrock Mess- und Regeltechnik GmbH

Hi,

How can I dock Delphi Forms (TForm) in LMDDockSite ?

My creation didn't work. The TForm doesn't dock to the LMDDockSite.

I am a newbee.

Do I need to insert a special code to the form ?

Thx

Oliver

Eugene Balabuev (LMD)

First I advice you to NOT to dock forms, as you will not be able to support all docking features, as opposed to built-in dock panels.

However, to dock forms you need:

- Set form's DragKind to dkDock, and DragMode to dmAutomatic at design time.

- Create OnStartDock event handler, like shown below:

procedure TForm2.FormStartDock(Sender: TObject;

  var DragObject: TDragDockObject);

begin

  DragObject := TLMDDragObject.Create(Self);

  TLMDDragObject(DragObject).DragContent := False;

end;

Wiebrock Mess- und Regeltechnik GmbH

Thx.

It works.