摘要: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
|
||
随笔分类 - 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
摘要:使窗体Showmodal后可以操作其他窗体 字体大小: 中小 标准 ->行高大小: 标准 中 大 使窗体Showmodal后可以操作其他窗体 字体大小: 中小 标准 ->行高大小: 标准 中 大 01 对话框ShowModal之后不能操作其它窗口,实际上是因为Windows Disable了其它窗口
阅读全文
posted @ 2016-07-26 15:47
摘要:unit ufrmSysPubMessage;interfaceuses Windows, Forms, Messages, Classes, ExtCtrls, Controls, StdCtrls;type TfrmSysPubMessage = class(TForm) Image1: TIm
阅读全文
posted @ 2016-07-24 17:50
|
||