希望各位老鸟,帮个忙:( Form1.BorderIcons.biSystemMenu := False; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 还是procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin CanClose:=False;end;好一些,不影响最大,最小窗口。 不过按照楼上的方法的话就无法关闭了~~最好在增加一个变量来控制~~比如:如果是点击你的按钮则CloseFlag:=True;否则CloseFlag;p=Falseprocedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin CanClose := CloseFlag;end; var mnu: HMENU;begin mnu := GetSystemMenu(Handle, False); EnableMenuItem(mnu,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED); delphi tdatetimepicker webconnection程序的配置,不知道现在还有没有人做这种程序:) Delphi 7.0 自定义组件开发 请教下有关数据备份的问题 有人说我倒分.马上要死了.散掉所有分.(5) 难题急求高手解决!很急!!!!! 在delphi中,如何调用api? 帮忙看看这里的错误怎么解决? 我的NT4.0启动时出问题了..帮忙 寻找好的安装工具 关于 tcollection ,tcollectionitem,的使用? 有关标题栏
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;
好一些,不影响最大,最小窗口。
最好在增加一个变量来控制~~
比如:
如果是点击你的按钮则CloseFlag:=True;否则CloseFlag;p=False
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := CloseFlag;
end;
mnu: HMENU;
begin
mnu := GetSystemMenu(Handle, False);
EnableMenuItem(mnu,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);