作业帮 > 综合 > 作业

Delohi7程序谁帮我加解释我看不懂

来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/06/17 07:17:47
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程序谁帮我加解释我看不懂
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;
Delohi7程序谁帮我加解释我看不懂 谁帮我解释数字图像处理的程序,刚学的,看不懂! 细大不捐～不要百科,我看不懂,谁帮我解释下 帮我解释下,我看不懂  机械图纸看不懂帮我解释下 谁可以帮我解释两个Matlab程序 谁可以帮我解释下面这段宏程序 谁帮我解释下我的配置,根本看不懂啊 谁帮我解释下,对这个解法我怎么就看不懂呢? 求人帮我解释这三句话,实在看不懂 麻烦帮我解释下matlab数字水印程序 求助Matlab高手,帮我解释一小段程序,