精心打造的New MMS Form_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

精心打造的New MMS Form

作者：闵涛文章来源：闵涛的学习笔记点击数：1817 更新时间：2009/4/23 18:26:19

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]

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：解决了datatree的‘死节点’问题

下一篇教程：取Run下所有值(原创)

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]