Delohi7程序谁帮我加解释我看不懂unit unitFrmSplit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls;typeTfrmSplit = class(TForm)pnlClient:TPanel;pnlLeft:TPanel;Splitter1:TSplitter;procedure Sp
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/29 19:05:11
![Delohi7程序谁帮我加解释我看不懂unit unitFrmSplit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls;typeTfrmSplit = class(TForm)pnlClient:TPanel;pnlLeft:TPanel;Splitter1:TSplitter;procedure Sp](/uploads/image/z/4819937-41-7.jpg?t=Delohi7%E7%A8%8B%E5%BA%8F%E8%B0%81%E5%B8%AE%E6%88%91%E5%8A%A0%E8%A7%A3%E9%87%8A%E6%88%91%E7%9C%8B%E4%B8%8D%E6%87%82unit+unitFrmSplit%3BinterfaceusesWindows%2CMessages%2CSysUtils%2CVariants%2CClasses%2CGraphics%2CControls%2CForms%2CDialogs%2CExtCtrls%3BtypeTfrmSplit+%3D+class%28TForm%29pnlClient%3ATPanel%3BpnlLeft%3ATPanel%3BSplitter1%3ATSplitter%3Bprocedure+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;