outputunit.pas

一个不用编写任何代码的DELPHI停靠窗体的控件原码

unit OutputUnit;

interface

uses
  Windows, Messages, SysUtils{, Variants}, Classes, Graphics, Controls, Forms,
  Dialogs, lbDockFormControl, Tabs, StdCtrls, ComCtrls, ExtCtrls;

type
  TOutputForm = class(TForm)
    lbDockClient1: TlbDockClient;
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    TabSet1: TTabSet;
    ScrollBar1: TScrollBar;
    Memo1: TMemo;
    procedure FormHide(Sender: TObject);
    procedure lbDockClient1FormHide(Sender: TObject);
    procedure Panel2CanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OutputForm: TOutputForm;

implementation

uses MainFormUnit;

{$R *.dfm}

procedure TOutputForm.FormHide(Sender: TObject);
begin
  MainForm.Output_ToolButton.Down := False;
end;

procedure TOutputForm.lbDockClient1FormHide(Sender: TObject);
begin
  MainForm.Output_ToolButton.Down := False;
  MainForm.Output_PopupItem.Checked := False;
end;

procedure TOutputForm.Panel2CanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if Panel2.Width = NewWidth then Exit;
  if Panel2.Width > 0 then
  begin
    if (TabSet1.Width > 0) and (TabSet1.Width < Panel2.Width) then
      TabSet1.Width := Round(TabSet1.Width * NewWidth / Panel2.Width)
    else
      TabSet1.Width := Panel2.Width div 2;
  end;
  Splitter1.Left := TabSet1.Width;
end;

end.