to Stringlist.Count - 1 do
begin
case Column of
0: CellText:=getFilenameFromFullpath(Stringlist[node.index]);
end;
end;
end;//自写函数，根据文件的绝对路径，得到包括了扩展名的文件名 function TNewMMS.getFilenameFromFullpath(s:string):string;
var
i:Integer;
temp:string;
begin
temp:=trim(s);
i:=Pos(''''\'''',temp);
while i<>0 do
begin
temp:=copy(temp,i+1,StrLen(PAnsiChar(temp))-i);
i:=Pos(''''\'''',temp);
end;
result:=temp;
end; procedure TNewMMS.XpBtnDeleteClick(Sender: TObject);
var
node:PVirtualNode;
begin
if VSTreeResource.FocusedNode=nil then Exit; node:=VSTreeResource.FocusedNode; totalSize:=totalSize-getFileSize(Stringlist.Strings[node.index]);
edtsize.Text:=IntToStr(totalSize)+'''' Byte''''; Stringlist.Delete(node.Index);
RefreshTree; getMMSContentType; end; procedure TNewMMS.FormDestroy(Sender: TObject);
begin
stringlist.Free;
inherited;
end;
procedure TNewMMS.edtSubjectMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if edtsubject.Text=''''You can set a subject here'''' then
edtSubject.SetFocus;
end;
end. 『绝对原创 飞飞于北京 2005-08-31』
上一页 [1] [2] | 
