Delphi7窗口不要最大化。最小化可以了。一个关闭,一个最小化,最大化按不到下去就对了。请问怎样 20
Delphi7窗口不要最大化。最小化可以了。一个关闭,一个最小化,最大化按不到下去就对了。请问怎样弄?...
Delphi7窗口不要最大化。最小化可以了。一个关闭,一个最小化,最大化按不到下去就对了。请问怎样弄?
展开
2个回答
展开全部
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
sendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化灶镇宴察 任务栏中
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsMaximized;//窗体最大化
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsminimized;//窗体最小化到 任隐祥粗务栏上方
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsnormal;//窗体正常化
end;
begin
sendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化灶镇宴察 任务栏中
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsMaximized;//窗体最大化
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsminimized;//窗体最小化到 任隐祥粗务栏上方
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState := wsnormal;//窗体正常化
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询