unitfrmsplit.pas

来自「DELPHI7编程百例 DELPHI7编程百例 DELPHI7编程百例」· PAS 代码 · 共 37 行

unit unitFrmSplit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TfrmSplit = class(TForm)
    pnlClient: TPanel;
    pnlLeft: TPanel;
    Splitter1: TSplitter;
    procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
      var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSplit: TfrmSplit;

implementation

{$R *.dfm}

procedure TfrmSplit.Splitter1CanResize(Sender: TObject;
  var NewSize: Integer; var Accept: Boolean);
begin
if  (NewSize<150)  or   (NewSize>300) then
   Accept:=false;
end;

end.