| Subject: | TOpenDialog.Execute not working |
| Posted by: | Robert Lee Camp |
| Date: | Wed, 30 Dec 2009 |
Another mystery. for no known reason I have a TOpenDialog that used to execute but now it doesn't.
CreateDir(path + 'PDF');
OPDG1.InitialDir := path + 'PDF\';
OPDG1.Filter := 'Adobe Acrobat files (*.pdf)|*.PDF';
OPDG1.defaultExt := 'pdf';
OPDG1.FileName := Edit1.Text + ' Yearly Report.pdf';
If OPDG1.Execute then
begin
When I step through this, the code skips everything after encountering the If OPDG1.Execute then command. In short, it does not execute.
This worked before and I cant recall doing anything that would have an effect on this area.
Any ideas or thoughts would be greatly appreciated
Robert