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

Question

rt

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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