怎么样才可以让FORM最大化按钮失效,并且按钮显示状态不使能(50分)

  • 主题发起人 主题发起人 sdenf
  • 开始时间 开始时间
S

sdenf

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么样才可以让FORM最大化按钮失效,并且按钮显示状态不使能
 
form1.BorderIcons:=[biSystemMenu,biMinimize];
 
设置窗口的BorderIcons属性

按钮 Button1.Enabled:=false;
 
呵呵,可以调用wm_message函数
public
procedure WMSYSCOMMAND(var msg:TWMSYSCOMMAND); message wm_syscommand;
procedure TMainForm.WMSYSCOMMAND(var msg: twmsyscommand);
begin
if (msg.cmdtype=sc_minimize) then
begin
Visible := not Visible;
Application.ShowMainForm := Visible;
end
else if (msg.cmdtype=sc_close) then
begin
if (msg.CmdType=sc_maximize) then
begin
//点最大化时候的事件
end

end;
 
不但失效,而且按钮都不在了。最简单的办法是调整窗口属性:bordericons中的bimaxmize变为false
 
quickchop
说的对
 
大家厉害,佩服佩服,不知道还有没有新颖的做法。,讨论讨论啦
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部