navigate.pas

delphi框架可以学习, 写的很好的

unit Navigate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ImgList, Buttons, ExtCtrls, jpeg,
  RzButton, RzTabs, RzPanel, RzBmpBtn, RzBckgnd;

type
  TfrmNavigate = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    RzPanel3: TRzPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    RzSeparator1: TRzSeparator;
    procedure FormCreate(Sender: TObject);
    procedure WMNCHITTEST(var M: TWMNCHITTEST); message WM_NCHITTEST;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  frmNavigate: TfrmNavigate;

implementation

uses Main;

{$R *.dfm}

procedure TfrmNavigate.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style xor WS_BORDER);
end;

procedure TfrmNavigate.FormCreate(Sender: TObject);
begin
  frmNavigate.Width := 460;
  frmNavigate.Height := 350;
end;

procedure TfrmNavigate.WMNCHITTEST(var M: TWMNCHITTEST);
begin
  inherited;
  if M.Result=HTCAPTION then
    M.Result := HTCLIENT
end;

end.