OpenPictureDialog问题~~~

yan_hui 2003-03-09 02:24:16

OpenPictureDialog有两个Filter , *.bmp 和 *.jpg , 现在我想实现选择*.bmp 时MutilSelect := true , 选择 *.jpg 时 MutilSelect := False ; 请问如何实现??

...全文

65 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

findcsdn 2003-03-18

打赏
举报

幸好TOpenPictureDialog是delphi自己写的，有源代码，你可以从TOpenPictureDialog派生自己的类，然后重载 DoTypeChange 函数就可以了，在那个函数里写MutilSelect的属性.

yan_hui 2003-03-09

打赏
举报

to Iamfish(呆鱼):
谢谢~
你的方法只有下次OpenPictureDialog.Execute时才生效, 我想实现的是实时改变Options的值 .

Iamfish 2003-03-09

打赏
举报

procedure TForm1.OpenPictureDialog1TypeChange(Sender: TObject);
begin
if OpenPictureDialog1.FilterIndex=1 then
self.OpenPictureDialog1.Options:=[ofAllowMultiSelect]//[ofAllowMultiSelect,...]添加你的选项
else
self.OpenPictureDialog1.Options:=[]; //[...]添加你的选项
end;

Iamfish 2003-03-09

打赏
举报

procedure TForm1.OpenPictureDialog1TypeChange(Sender: TObject);
begin
if OpenPictureDialog1.FilterIndex=1 then //*.bmp
//[MutilSelect := true]
else //其它的
//[MutilSelect := False]
end;