枚举某个文件夹下的所有文件及了文件夹到菜单上

//弹出菜单
procedure TForm1.ShowPopupMenu(Sender: TObject; Pm: TPopupMenu);
var
aPoint: TPoint;
begin
aPoint := TControl(Sender).ClientOrigin;
aPoint.X := aPoint.X TControl(Sender).Width;
Pm.Popup(aPoint.X, aPoint.Y);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Folder := IncludeTrailingBackslash(Edit1.Text);
ShowPopupMenu(Sender, PopupMenu1);
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if First then
begin
GetSysImageList(ImageList1);
PopupMenu1.Items.Clear;
ShowPMFileIcon(PopupMenu1, Folder);
First := False;
end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
First := True;
end;

end.

版权所有 2004 cjsh 保留所有权利。欢迎转载，请注明出处：http://www.cnblogs.com/cjsh

上一篇： 第三方控件安装方法说明文档
下一篇： 加密解密 (利用异或运算)

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!