不是MDI窗体,如何使一个窗体处于激活状态时,其它窗不能激活呢!
解决方案 »
- 关于dxDBGrid的问题
- Access数据库,要经常插入数据,且要及时显示,用哪几个组件?
- 祝福华仔生日快乐
- Communication link failure
- 在delphi中如何把一个数据集的数据集里的某几个字段写到XML文件里,我上面没说清楚不好意思谢谢大家
- WWDBGRID记录显示及控制移动问题
- 请问jpeg-》bmp-》jpeg的转化问题
- 关于用HTMLHELP WORKSHOP 做出来的帮助如何调用的问题,请用过的帮帮忙, 在线等。
- 如何取得webbrowser中frame中载入的htm文件的title或是文件的名称
- 老问题
- 在rave里如何调用delphi下编好的代码来转换报表里的数字小写
- 关于htmlhelp workshop的一个小问题,分不多,先给20分,在线等待
我还是不明白你的意思,
如果你想让窗体在最上层,
则在窗体的属性里设置FormStyle为OnTop.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MyGraphicButton;type
TForm1 = class(TForm)
MyGraphicButton1: TMyGraphicButton;
private
procedure WMKILLFOCUS(var Msg: TMessage); message WM_KILLFOCUS; public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.WMKILLFOCUS(var Msg: TMessage);
var
myhandle: THandle;
begin
myhandle:=(msg.WParam);
EnableWindow(myhandle,False);
inherited;
end;end.