想用TCommonDialog自己生成一个对话框

blacktulip_g

想用TCommonDialog自己生成一个对话框，有没有例子代码

zeus-chu

http://www.koders.com/?s=TCommonDialog&la=Delphi

blacktulip_g

我自己写的代码大致如下：
设计对话框
TMyDialog=TCommonDialog
end;

使用自己的对话框
Dialog:=TMyDialog;
Dialog:=TMyDialog.create(self);
Diaog.execute;
Dialog.Free;
问题在于create以后，不见对话框出现，型知道原因，doshow函数用了都不行

zeus-chu

请参考 $(lazarus)/lcl/include/commodialog.inc 和 $(lazarus)/lcl/include/filedialog.inc。