窗体属性为OnStayTop执行一个OpenDialog1->Execute()后，对话框显示不出来

newgoogle 2003-10-09 11:06:16

有什么办法不改OnStayTop的属性让文件对话框显示出来

...全文

100 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

BSC 2003-10-09

打赏
举报

回复

我试了没有你说的问题呀。

我不懂电脑 2003-10-09

打赏
举报

回复

我试了没有你说的问题呀。

shally5 2003-10-09

打赏
举报

回复

我没有你说的现象。。。。

变通一下：
Form1->FormStyle=fsNormal;
if(OpenDialog1->Execute())
{
.....你的代码
}
FForm1->FormStyle=fsStayOnTop;

ljianq 2003-10-09

打赏
举报

回复

没发现这样的情况呀。

fatwave 2003-10-09

打赏
举报

回复

好你没有办法！不知高手有什么好办法！

happyer 2003-10-09

打赏
举报

回复

可能你的窗体本身是StayOnTop，因此用下面代码，先改变其状态，然后再复原。
this->FormStyle = fsNormal;

Application->NormalizeTopMosts();
Application->MessageBox("This should be on top.", "Look");
Application->RestoreTopMosts();

this->FormStyle = fsStayOnTop;

newgoogle 2003-10-09

打赏
举报

回复

窗体是show的模式，而且BordStayle 为bsSizeable

前人 Delphi XE5 Android Dialogs 对话框，升级到XE10，需要修改一些地方，才能编译通过，尽量不让人走弯路，而且积分也少很多

Chm格式，打开文件与保存文件对话框 OpenDialog组件 Delphi为用户提供了一组常用的对话框组件，包括：打开文件、保存文件、设置字体、设置颜色、查找字符串和替换字符串等。在程序运行时，这些组件以对话框的形式出现，供用户操作使用。首先介绍OpenDialog组件。 OpenDialog组件即打开文件对话框组件，位于组件板“Dialogs”选项卡的第二个位置。程序运行时，打开文件对话框不会自动打开，必须利用其Execute方法才能打开。 OpenDialog组件的主要属性： l　FileName 设置或保存打开文件的名称（包括路径名和扩展

修改flcop提供的代码，以适应Delphi xe10环境，版权归flcop所有

Delphi 获取文件访问时间，也主是最后一次打开文件的时间，基于Delphi7实现。相关代码如下：　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenDialog1.Execute then 　　 begin 　　 Edit1.Text := OpenDialog1.FileName; 　　 Edit2.Text := ''; 　　 end; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 if Edit1.Text<>'' then 　　 Edit2.Text := GetDateTime(Pchar(OpenDialog1.FileName)); 　　end; 　　function TForm1.GetDateTime(const FileName: Pchar): string; 　　var 　　 hFile : THandle; 　　 Sy : TSecurityAttributes; 　　 WTime, LTime : TFILETIME; 　　 STime : TSystemTime; 　　begin 　　 Sy.nLength := SizeOf(TSecurityAttributes); 　　 //必需参数　　 Sy.lpSecurityDescriptor := nil; 　　 Sy.bInheritHandle:=False; 　　 hFile := CreateFile(PChar(FileName),GENERIC_READ , 1 ,@Sy,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 1); 　　 if hFile=INVALID_HANDLE_VALUE then 　　 Result:='' 　　 else 　　 begin 　　 GetFileTime(hFile, nil, @WTime, nil); 　　 FileTimeToLocalFileTime(WTime, LTime); 　　 FileTimeToSystemTime(LTime, STime); 　　 Result:=Format('%d年%d月%d日 %2.2d:%2.2d:%2.2d',[STime.wYear,STime.wMonth,STime.wDay,STime.wHour,STime.wMinute,STime.wSecond]); 　　 end; 　　end;

本例子比较简单，主要演示使用Delphi的 FileGetAttr方法获取文件的各种属性，包括是否隐藏、是否只读，其它的属性可以查阅资料，添加相关参数即可，以上两属性的获取代码如下：　　if OpenDialog1.Execute then 　　begin 　　 option:=FileGetAttr(OpenDialog1.FileName); 　　 if (option and fahidden)<>0 then 　　 ShowMessage('文件被隐藏') 　　 else 　　 ShowMessage('文件没有隐藏'); 　　 if (option and faReadOnly)<>0 then 　　 ShowMessage('文件是只读') 　　 else 　　 ShowMessage('文件不是只读的'); 　　end;

13,825

社区成员

102,679

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章