窗体最前? 怎么使一个窗体总是在其它窗体的最前面,使用WIN+D也不使其最小化,请指教! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 能不能最小化我就不会了,不过我想可以捕获最小化事件,下面是窗体置前的代码,不过没有控制最小化情况unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var temp:integer;begin systemparametersinfo(spi_screensaverrunning,1,@temp,0); //限制功能键 formstyle:=fsstayontop; windowstate:=wsmaximized;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);var temp:integer;begin systemparametersinfo(spi_screensaverrunning,0,@temp,0);//取消对功能键的限制end;procedure TForm1.Button1Click(Sender: TObject);beginclose;end;end. 楼上的方法并没限制到啊.我试了(WinXPsp2+D6sp2) win + D有什么消息没? 要是有 拦截下来,应该行 分享:酷狗Krc歌词解析 Delphi版 ADO+ODBC连接DBase IV数据库问题 急啊,使用datapump时将foxpro的数据表导入oracle数据库时提示错误 如何限制SpinEdit,让它不能选择下箭头? 一个绝对酷,而绝对让你兴奋的问题(OLE): 谁有向表中存、取图片内容(不是存文件名)的好方法,谢谢 关于 windows api 复制函数问题 listview 的双击事件问题???? 在listview中如何让满足条件的记录变色 关于职业道德 如何取消按钮的onClick事件 关于收费取整问题
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var temp:integer;
begin
systemparametersinfo(spi_screensaverrunning,1,@temp,0);
//限制功能键
formstyle:=fsstayontop;
windowstate:=wsmaximized;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var temp:integer;
begin
systemparametersinfo(spi_screensaverrunning,0,@temp,0);//取消对功能键的限制
end;procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;end.