好像是真的请大家去 http://www.new7wonders.com/c/voting.php 投长城一票

解决方案 »

  1.   

    和getFileName有关
        property FileName: TFileName read GetFileName write FFileName;
    function TOpenDialog.GetFileName: TFileName;
    var
      Path: array[0..MAX_PATH] of Char;
    begin
      if NewStyleControls and (FHandle <> 0) then
      begin
        SendMessage(GetParent(FHandle), CDM_GETFILEPATH, SizeOf(Path), Integer(@Path));
        Result := StrPas(Path);
      end
      else Result := FFileName;
    end;
    当文件名结尾没有explorer时FHandle=0
    有explorer时FHandle<>0不知该如何解决,但此时ffilename是正确的
    如果
     property FileName: TFileName read FFileName write FFileName;
    的话。请大家去 http://www.new7wonders.com/c/voting.php 投长城一票