使用FileListBox1，希望对DblClick选中的Filemane的不同类型文件有不同的处理方法， 如DblClick选中的为*.txt文件，则Edit1.text:=txt; 如DblClick选中的为*.DOC文件，则Edit1.text:=Doc;

var ExtFile :string; begin ExtFile:=ExtractFileExt(ExtractFileName(FileListBox1.FileName)); edit1.Text :=copy(ExtFile,2,length(ExtFile)-1); end;    这就可以了    风花雪月 e梦情缘

------
风花雪月 e梦情缘

var ExtFile :string; begin ExtFile:=ExtractFileExt(ExtractFileName(FileListBox1.FileName)); edit1.Text :=copy(ExtFile,2,length(ExtFile)-1); end;    这就可以了    风花雪月 e梦情缘

------
风花雪月 e梦情缘

procedure TForm1.FileListBox1DblClick(Sender: TObject); var n:Integer; s:string; begin s:=FileListBox1.Filename; n:=Pos('.',s); if n>0 then edit1.text:=Copy(s,n 1,Length(s)-n); end;