Delohi7程序谁帮我加解释我看不懂unit unitFrmSplit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls;typeTfrmSplit = class(TForm)pnlClient:TPanel;pnlLeft:TPanel;Splitter1:TSplitter;procedure Sp

Delohi7程序谁帮我加解释我看不懂unit unitFrmSplit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls;typeTfrmSplit = class(TForm)pnlClient:TPanel;pnlLeft:TPanel;Splitter1:TSplitter;procedure Sp
Delohi7程序谁帮我加解释我看不懂
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);
procedure pnlLeftClick(Sender:TObject);
procedure FormCreate(Sender:TObject);
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 (NewSize300) then
Accept:=false;
end;
procedure TfrmSplit.pnlLeftClick(Sender:TObject);
begin
end;
procedure TfrmSplit.FormCreate(Sender:TObject);
begin
end;
end.

Delohi7程序谁帮我加解释我看不懂unit unitFrmSplit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls;typeTfrmSplit = class(TForm)pnlClient:TPanel;pnlLeft:TPanel;Splitter1:TSplitter;procedure Sp
TfrmSplit = class(TForm)
pnlClient:TPanel;
pnlLeft:TPanel;
Splitter1:TSplitter; //上面定义了几个对象
procedure Splitter1CanResize(Sender:TObject; var NewSize:Integer;
var Accept:Boolean);
procedure pnlLeftClick(Sender:TObject);
procedure FormCreate(Sender:TObject); //上面定义了几个过程
procedure TfrmSplit.Splitter1CanResize(Sender:TObject;
var NewSize:Integer; var Accept:Boolean); //给刚才定义的过程添加代码
begin
if (NewSize300) then //如果newsize 满足这2个条件
Accept:=false; //值为假
end;
procedure TfrmSplit.pnlLeftClick(Sender:TObject);
begin
end;
procedure TfrmSplit.FormCreate(Sender:TObject);
begin
end;