procedure TForm1.SpeedButton2Click(Sender: TObject);

begin
sendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,);//窗体最小化  任务栏中
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;
---------------------
作者:ozhy111
来源:CSDN
原文:https://blog.csdn.net/ozhy111/article/details/86062553
版权声明:本文为博主原创文章,转载请附上博文链接!

自定义

Uses ShellAPI;

 、//最小化
procedure TForm1.btn1Click(Sender: TObject);
var
  I, J, X, Y: Word;
begin
  //第一种:最小化在屏幕的左下角 ,不是常见的最小化
 // WindowState :=   wsMinimized;
  //第儿种:最小化在任务栏里面 ,是常见的最小化
  postmessage(Self.Handle,WM_SYSCOMMAND,SC_MINIMIZE,);
end; 、//最大化/正常的按钮
procedure TForm1.btn2Click(Sender: TObject);
var
  abd: TAppBarData;
begin
  if WindowState = wsMaximized then
    WindowState := wsNormal
  else
  begin
    WindowState := wsMaximized;  // BorderStyle为 bsNone
    abd.cbSize := sizeof(abd);
    SHAppBarMessage(ABM_GETTASKBARPOS, abd); //读取任务的区域
    Self.Height := Self.Height - (abd.rc.Bottom - abd.rc.Top);  //预留出任务的位置
  end;
end; 、//关闭
procedure TForm1.btn3Click(Sender: TObject);
begin
  Close;
end;   、//窗体的移动 procedure TForm1.lbl1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=Mbleft then
  begin
    ReleaseCapture;
    Perform(WM_NCLBUTTONDOWN,HTCAPTION,);//消息处理
  end;
end;   、//查找应用程序中已经创建的窗体 function FindForm(FormName: string): TForm;
var
  i:Integer;
begin
  Result := nil;
  for i:= to Application.ComponentCount- do
  begin
    if Application.Components[i].Name = FormName then
    begin
      Result := TForm(Application.Components[i]);
      Break;     
    end;
  end;
end;
---------------------
作者:爱在丽江leslex
来源:CSDN
原文:https://blog.csdn.net/xiongmao000738/article/details/6790153
版权声明:本文为博主原创文章,转载请附上博文链接!

delphi 窗体最大化 最小化的更多相关文章

  1. windows sdk编程禁止窗体最大化最小化

    #include <windows.h> /*消息处理函数声明*/ HRESULT CALLBACK WindowProc(HWND hwnd, UINT message, WPARAM ...

  2. C# 通过消息捕获处理窗体最大化/最小化

    通过以下的一些代码可以实现捕获相关的一些消息事件; 以及可以通过调用 SetCloseMenu();实现关闭一些按钮功能如屏蔽关闭按钮功能等; 需要添加命名空间:using System.Runtim ...

  3. C#winform如何主窗口最大化最小化默认大小

    this.WindowState = FormWindowState.Minimized; bool b = true; private void button2_Click(object sende ...

  4. PyQt:无边框自定义标题栏及最大化最小化窗体大小调整

    环境 Python3.5.2 PyQt5 陈述 隐藏掉系统的控制栏,实现了自定义的标题控制栏,以及关闭/最大化/最小化的功能,自由调整窗体大小的功能(跟随一个大佬学的),代码内有详细注释 只要把Mai ...

  5. C#程序实现窗体的最大化/最小化

    C#程序实现窗体的最大化/最小化 http://blog.csdn.net/jiangqin115/article/details/41251215 private void button1_Clic ...

  6. delphi ,1)控件根据窗口大小,一直居中显示 2)显示最大化最小化按钮控件

    一.控件根据窗口大小,一直居中显示 1)onResize:当窗体尺寸改变时发生 例子:如何使控件随窗口的放大和缩小动态改变自己的大小,使控件“保存.返回”在窗口变大变小中随着变. 在Panel调用 p ...

  7. c# 窗体相关操作(最大化/最小化/关闭/标题栏)

    /// <summary> /// 窗体跟随鼠标移动的标记 /// </summary> private bool normalmoving = false; /// < ...

  8. 【转】ubuntu 12.04 LTS将关闭最大化最小化移动到右上角

    原文网址:http://www.4byte.cn/learning/114801.html ubuntu 12.04 LTS将关闭最大化最小化移动到右上角   还是按下“ALT +F2”组合键,输入g ...

  9. layer满屏/禁止最大化最小化 可以做选择框使用

    1.layer弹窗最大化 var index=layer.open(); layer.full(index); 2.layer禁止最大化最小化 layer.open( [ type:2, title: ...

随机推荐

  1. Spring+Quartz集群环境下定时调度的解决方案

    集群环境可能出现的问题 在上一篇博客我们介绍了如何在自己的项目中从无到有的添加了Quartz定时调度引擎,其实就是一个Quartz 和Spring的整合过程,很容易实现,但是我们现在企业中项目通常都是 ...

  2. 帆软报表(FineReport)实现跨数据源父子查询(2阶段查询)

    问题描述: 在报表中需要查询多个系统多个数据源,且有一个数据源的入参是另一个数据源的返回值.所以当用户点击查询到展现报表数据这个过程中,需要先做父查询,查询出的结果在作为子查询. 实现方案: 方案一: ...

  3. PCB设计基本流程

    [PCB设计基本流程]1.准备原理图和网络表2.电路板规划3.参数设置4.导入网标5.布局6.布线7.规则检查与手工调整8.输出文件 [具体步骤]1.在原理图环境下:Tool——>Footpri ...

  4. netty服务器端启动

    package com.imooc.netty.ch3; import com.imooc.netty.ch6.AuthHandler; import io.netty.bootstrap.Serve ...

  5. leetcode7:反转整数

    给定一个 32 位有符号整数,将整数中的数字进行反转. 示例 1: 输入: 123 输出: 321 示例 2: 输入: -123 输出: -321 示例 3: 输入: 120 输出: 21 注意: 假 ...

  6. 分析easyswoole3.0源码,服务启动为例(一)

    swoole已经升级到4了,主要的特性是更好的支持协程,easyswoole也为了更好支持协程推出了es3.我本地环境是php7.2.9 centos7 在github下载最新的3.0的demo.地址 ...

  7. 检测2个url的不同之处(爬虫分析接口)

    就是简单的检测2个url的不同之处,在做爬虫时,要分析接口地址的不同之处,靠自己的眼睛有点累,所以写了一个小程序,不喜勿喷 #测试数据 a = "https://list.tmall.com ...

  8. [转] Shader Blending

    引用:1.Unity3D shader Blending2.[风宇冲]Unity3D教程宝典之Shader篇:第十三讲 Alpha混合 混合(Blending)是计算机呈现渲染结果的最后阶段,每一个像 ...

  9. 关于Hbuild引用mui常用代码块以及部分控件.

    MUI-最接近原生APP体验的高性能前端框架, 追求性能体验,是我们开始启动MUI项目的首要目标,轻量必然是重要特征: MUI不依赖任何第三方JS库,压缩后的JS和CSS文件仅有100+K和60+K, ...

  10. BSOJ3760||洛谷P1453 城市环路 题解

    城市环路 Description 一座城市,往往会被人们划分为几个区域,例如住宅区.商业区.工业区等等.B市就被分为了以下的两个区域——城市中心和城市郊区.在着这两个区域的中间是一条围绕B市的环路,环 ...