奇怪的问题??(10分)

  • 主题发起人 主题发起人 zw_titan
  • 开始时间 开始时间
Z

zw_titan

Unregistered / Unconfirmed
GUEST, unregistred user!
我用代码添上控件,代码为
procedure TForm1.FormCreate(Sender: TObject);
var
dirs: TDirectoryListBox;
files: TFileListBox;
splits: TSplitter;
begin
dirs:= TDirectoryListBox.create(form1);
dirs.parent:=form1;
dirs.align:=alleft;

split:= TSplitter.create(form1);
split.parent:=form1;
split.left:=dirs.left+dirs.width+1;
split.align:=dirs.align;
split.minsize:=form1.cliectwidth div 4;

files:=TFileListBox.create(form1);
files.parent:=form1;
files.align:=alclient;
dirs.FileList:=files;
end;
其中TFileListBox和TDirectoryListBox都能编译通过就是TSplitter不能通过,
难道它很特殊吗?
 
记得添加filectrl, extctrls;
另外你定义的是:splits,怎么下面是: split了???????? 呵呵
 
出错信息?
 
对呀,你的变量?
 
卷起千堆雪:
再问一下为什么要加extctrls,而FileCtrl,StdCtrls都是自己生成的?
 
后退
顶部