不是MDI窗体,如何使一个窗体处于激活状态时,其它窗不能激活呢!
解决方案 »
- delphi7编写的DLL代码到2010中编译后使用时会自动关闭程序
- 求教如何实现鼠标双击时不触发单击事件
- PostMessage发送多个消息的顺序问题,关于一个程序录入界面发送TAB问题
- 请帮忙解决一个delphi嵌入汇编的问题.
- 刚学完成端口,下面一句怎么老是出问题!
- 请教各位仁人有学习Delphi的QQ群吗?真想一起学习
- VCL组件未注册之前的测试?
- 请问有人要招聘delphi程序员吗?请进来一看啊!
- 岁末大散分!可用分太多了(9K多呢)!
- 招
- 在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.