张志峰的博客

水滴石川,积少成多。

导航

随笔分类 -  delphi 窗口始终在最上面

摘要:Delphi(68) Delphi(68) procedure TForm1.ShowForm2;begin Self.Enabled := False; try with TForm2.Create(nil) do begin try if ShowModal = mrOk then // Ret 阅读全文

posted @ 2016-07-26 15:51 ╰★张志峰★╮ 阅读(1852) 评论(0) 推荐(0)

摘要:使窗体Showmodal后可以操作其他窗体 字体大小: 中小 标准 ->行高大小: 标准 中 大 使窗体Showmodal后可以操作其他窗体 字体大小: 中小 标准 ->行高大小: 标准 中 大 01 对话框ShowModal之后不能操作其它窗口,实际上是因为Windows Disable了其它窗口 阅读全文

posted @ 2016-07-26 15:47 ╰★张志峰★╮ 阅读(3012) 评论(0) 推荐(0)

摘要:unit ufrmSysPubMessage;interfaceuses Windows, Forms, Messages, Classes, ExtCtrls, Controls, StdCtrls;type TfrmSysPubMessage = class(TForm) Image1: TIm 阅读全文

posted @ 2016-07-24 17:50 ╰★张志峰★╮ 阅读(528) 评论(0) 推荐(0)