delphi 窗体最大化 最小化
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
sendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化 任务栏中
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState :=
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState :=
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.WindowState :=
end;
- 上一篇 »Javascript 最大化窗体
- 下一篇 »JavaScript屏蔽类