文档章节

获取窗口矩形的四种方法: GetClientRect、ClientRect、GetWindowRect、BoundsRect

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 233
阅读 8
收藏 0
其中 GetClientRect、ClientRect 获取的是窗口的客户区矩形;

GetWindowRect、BoundsRect 是获取窗口矩形;

另外, 还有一个 Windows.GetClientRect(使用方法同 GetWindowRect, 它们都是 API 函数),
这里使用的 GetClientRect 是 Forms.GetClientRect.

本例效果图:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Color := clWhite;
end;

procedure TForm1.FormPaint(Sender: TObject);
const
  str = 'L:%d; T:%d; R:%d; B:%d - ';
var
  R1,R2,R3,R4: TRect;
  buf: array[Byte] of Char;
  x,y,h: Integer;
begin
  R1 := GetClientRect;
  R2 := Self.ClientRect;
  GetWindowRect(Handle, R3);
  R4 := Self.BoundsRect;

  x := 10;
  y := 10;
  h := 10;

  Randomize;
  Canvas.Font.Color := Random($FFFFFF);
  wvsprintf(buf, str + 'GetClientRect', @R1);
  Canvas.TextOut(x, y, buf);
  y := y + h + Canvas.TextHeight(buf);

  wvsprintf(buf, str + 'Self.ClientRect', @R2);
  Canvas.TextOut(x, y, buf);
  y := y + h + Canvas.TextHeight(buf);

  Canvas.Font.Color := Random($FFFFFF);
  wvsprintf(buf, str + 'GetWindowRect', @R3);
  Canvas.TextOut(x, y, buf);
  y := y + h + Canvas.TextHeight(buf);

  wvsprintf(buf, str + 'Self.BoundsRect', @R4);
  Canvas.TextOut(x, y, buf);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/05/29/1209857.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
VC对话框全屏显示及相应控件位置改变(转)

一、简单对话框全屏显示方法在OnInitDialog()中任意加入: 1、ModifyStyle(WS_CAPTION,0,0); //如果不想去掉标题栏,去掉该句。 SendMessage(WM_SYSCOMMAND,SC_MAXIMIZE,0); 2、ShowWindow(...

长平狐
2012/11/01
129
0
GetWindowRect & GetClientRect

GetWindowRect 函数功能:该函数返回指定窗口的边框矩形的尺寸。该尺寸以相对于屏幕坐标左上角的屏幕坐标给出。 GetClientRect 该函数获取窗口客户区的坐标。客户区坐标指定客户区的左上角和...

ryany
2010/11/05
0
0
GetDC,GetDCEX,GetWindowDC

GetDC():获得指定窗口的客户区设备描述表句柄。 GetDCEX():获得指定窗口的客户区设备描述表句柄,是GetDC的扩展,对如何剪裁客户区域或是否剪裁客户区域提供给程序更多的控制。 GetWindowDC(...

yintao
2014/11/17
0
0
窗口设置最顶端,全屏

使窗口设置为最大化,最顶层 int cxScreen,cyScreen; cxScreen=GetSystemMetrics(SM_CXSCREEN);//获得屏幕的宽度 cyScreen=GetSystemMetrics(SM_CYSCREEN);//获得屏幕的高度 SetWindowPos(&......

长平狐
2012/10/08
413
0
【Visual C++】游戏开发笔记十三 游戏输入消息处理(二) 鼠标消息处理

本系列文章由zhmxy555编写,转载请注明出处。 http://blog.csdn.net/zhmxy555/article/details/7405479 作者:毛星云 邮箱: happylifemxy@qq.com 欢迎邮件交流编程心得 上一节我们讲解了键盘...

长平狐
2012/11/12
134
0

没有更多内容

加载失败,请刷新页面

加载更多

开始看《Java学习笔记》

虽然书买了很久,但一直没看。这其中也写过一些Java程序,但都是基于IDE的帮助和对C#的理解来写的,感觉不踏实。 林信良的书写得蛮好的,能够帮助打好基础,看得出作者是比较用心的。 第1章概...

max佩恩
昨天
11
0
Redux 三大原则

1.单一数据源 在传统的MVC架构中,我们可以根据需要创建无数个Model,而Model之间可以互相监听、触发事件甚至循环或嵌套触发事件,这些在Redux中都是不被允许的。 因为在Redux的思想里,一个...

wenxingjun
昨天
7
0
跟我学Spring Cloud(Finchley版)-12-微服务容错三板斧

至此,我们已实现服务发现、负载均衡,同时,使用Feign也实现了良好的远程调用——我们的代码是可读、可维护的。理论上,我们现在已经能构建一个不错的分布式应用了,但微服务之间是通过网络...

周立_ITMuch
昨天
4
0
XML

学习目标  能够说出XML的作用  能够编写XML文档声明  能够编写符合语法的XML  能够通过DTD约束编写XML文档  能够通过Schema约束编写XML文档  能够通过Dom4j解析XML文档 第1章 xm...

stars永恒
昨天
2
0
RabbitMQ学习(2)

1. 生产者客户端 void basicPublish(String exchange, String routingKey, boolean mandatory, boolean immediate, BasicProperties props, byte[] body) 1. 在生产者客户端发送消息时,首先......

江左煤郎
昨天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部