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不能通过,
难道它很特殊吗?
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不能通过,
难道它很特殊吗?