一个表单最小化后,如何用代码让表单最大化(10分)

  • 主题发起人 主题发起人 w1229
  • 开始时间 开始时间
W

w1229

Unregistered / Unconfirmed
GUEST, unregistred user!
分值有点,不好意思,当最小化后,执行
f_main.show;
f_main.WindowState:=wsMaximized;
没有反映
 
Application.Restore;
f_main.WindowState := wsMaximized;
 
现在可以,谢谢.
procedure Tf_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=canone;
f_main.WindowState:=wsMinimized ;
end;
执行上边的代码和单击最小化按钮为什么有区别.
 
action:=caMinimize;
仍然将表单关闭了
 
procedure Tf_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := caNone;
Application.Minimize;
end;
 
谢谢dreaisx.
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
929
SUNSTONE的Delphi笔记
S
后退
顶部