Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

Delphi Forms in LMDDockSite

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

Comments

  • 1 Comment sorted by Votes Date Added
  • 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;
Sign In or Register to comment.