和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 投长城一票
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 投长城一票