程序中如何屏蔽 alt+F4? 另外,如何将Tbitbutton和Tpanel设置为透明?

rt  
  问题点数：30、回复次数：8Top

1 楼CareYouOnly（只在乎你）回复于 2004-09-05 00:02:45 得分 10

//屏蔽Alt+F4  
  //Form1的OnCloseQuery事件：  
  procedure   TForm1.CloseQuery(Sender:   TObject;   var   CanClose:   Boolean);  
  begin  
      CanClose:=False;  
  end;  
   
   
  Tbitbutton和TPanel设置为透明是什么意思呢，如果要看不见他们将他们的Visible属性设置为False不就行了吗？Top

2 楼darkliu（钢铁工人甲）回复于 2004-09-05 11:19:10 得分 5

同意楼上Top

3 楼seahjun（东邪）回复于 2004-09-05 11:40:55 得分 5

//将Tbitbutton和Tpanel设置为透明  
   
  可以在网上查找相关控件的改进型（仿WinXP的），很多啊。Top

4 楼whitetiger8（键盘未敲坏，基本功未练成）回复于 2004-09-05 12:54:18 得分 10

//屏蔽Alt+F4  
  //Form1的OnCloseQuery事件：  
  procedure   TForm1.CloseQuery(Sender:   TObject;   var   CanClose:   Boolean);  
  begin  
      CanClose:=False;  
  end;  
  Top

5 楼jabcf（小金呀）回复于 2004-09-05 13:26:42 得分 0

procedure   TForm1.CloseQuery(Sender:   TObject;   var   CanClose:   Boolean);  
  begin  
      CanClose:=False;  
  end;  
  那窗口怎么关上呀？Top

6 楼wilowind（杂而不精）回复于 2004-09-05 15:00:40 得分 0

bitbutton设置为   Flat:=true就透明了Top

7 楼CareYouOnly（只在乎你）回复于 2004-09-05 15:02:27 得分 0

//加一个按钮Button1  
  //以下为Button1的OnClick事件  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      self.OnCloseQuery:=nil;  
      close;  
  end;Top

8 楼CareYouOnly（只在乎你）回复于 2004-09-05 15:03:44 得分 0

//为了使窗口能够关闭，需要加一个按钮Button1  
  //以下为Button1的OnClick事件  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      self.OnCloseQuery:=nil;  
      close;  
  end;  
  Top

相关问题

• 屏蔽
• tbitbutton
• canclose
• onclosequery
• tpanel
• closequery
• 屏蔽alt+f4
• 设置
• tobject
• procedure tform

• 帖主：suuare
• CareYouOnly
• darkliu
• seahjun
• whitetiger8

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载