TSplitter的parent属性问题 (50分)

procedure TForm1.Form1Create(Sender: TObject);

var
Split: TSplitter;
Files: TFileListBox;
Dirs: TDirectoryListBox;
begin
Dirs := TDirectoryListBox.Create(Form1);
Dirs.Parent := Form1;
Dirs.Align := alLeft;
Dirs.Width := Form1.ClientWidth div 3
Split := TSplitter.Create(Form1);
Split.Parent := Form1;
Split.Left := Dirs.Left + Dirs.Width + 1;
Split.Align := Dirs.Align;
Split.MinSize := Form1.ClientWidth div 4;
Files := TFileListBox.Create(Form1);
Files.Parent := Form1;
Files.Align := alClient;
Dirs.FileList := Files;
end;
这个里面那句split.parent=form1;不能通过。我从delphi中抄的不知道为什么？
split.parent=form1控件说明是要为TWidgetControl类型。所以不能用。
哦还忘了这个函数的第一句话
procedure TForm1.Form1Create(Sender: TObject);
也不对。该是procedure TForm1.FormCreate(Sender: TObject);
不知道delphi的帮助怎么回事

没有问题，你不过是少了个分号在这一句
Dirs.Width := Form1.ClientWidth div 3

接受答案了.