文档章节

WinAPI: EqualRect、EqualSid、EqualPrefixSid - 判断一个矩形(或其他结构)是否相等

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 204
阅读 2
收藏 0
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  R1: TRect = (Left:20; Top:20; Right:20; Bottom:20);
  R2: TRect = (Left:20; Top:20; Right:20; Bottom:20);

//EqualRect
procedure TForm1.Button1Click(Sender: TObject);
var
  s1,s2: string;
begin
  ShowMessage(BoolToStr(EqualRect(R1,R2), True));  {True}

  OffsetRect(R2, 10, 10);
  ShowMessage(BoolToStr(EqualRect(R1,R2), True));  {False}
end;

//EqualSid: 它可用于判断所有结构; EqualRect 是专用于 TRect 的.
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(EqualSid(@R1,@R2), True)); {True}

  OffsetRect(R2, 10, 10);
  ShowMessage(BoolToStr(EqualSid(@R1,@R2), True)); {False}
end;

//EqualPrefixSid: 它和 EqualSid 的用法一样, 可能是适用于和服务器联系的.
procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(EqualPrefixSid(@R1,@R2), True)); {True}

  OffsetRect(R2, 10, 10);
  ShowMessage(BoolToStr(EqualPrefixSid(@R1,@R2), True)); {False}
end;

end.

 
 
 
 
 

 

 

  

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
iOS(CGGeometry)几何类方法总结

iOS开发几何类方法总结 CGGeometry.h文件是用C语言实现的一个封装了许多常用几何方法的文件。 一、几个常用结构体 struct CGPoint { CGFloat x; CGFloat y; }; 定义一个点,设置x坐标和y坐标...

珲少
2015/04/27
0
3
为什么覆盖equals时也要覆盖hashCode方法

看了《effective java》第九条。特此对equals方法和hashCode方法做此总结 现在假设我们有一个矩形类Rectangle public class Rectangle { } 先回顾下我们为什么要覆盖equals方法呢?现在我们有...

gkmmg
05/13
0
0
Delphi 常用API 函数(好多都没见过)

AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThread...

dillonxiao
09/19
0
0
看懂 PHP 的空值检查

让我们先有一些基础知识: isset($x) 语言结构。检查变量是否赋值 empty($x) 函数。检查值是否为空 is_null($x) 函数。检查值是否为null == 运算符。判断值是否相等 === 运算符。判断值和类型...

傅易
2016/12/12
11
0
[Beautifulzzzz的博客目录] 快速索引点这儿O(∩_∩)O~~,红色标记的是不错的(⊙o⊙)哦~

3D相关开发 [direct-X] 1、direct-X最小框架 [OpenGL] 1、环境搭建及最小系统 [OpenGL] 2、企业版VC6.0自带的Win32-OpenGL工程浅析 51单片机 [51单片机] 1602液晶显示控制代码 [51单片机] 1...

史迪奇2号
2017/08/01
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Kafka+Flink 实现准实时异常检测系统

1.背景介绍 异常检测可以定义为“基于行动者(人或机器)的行为是否正常作出决策”,这项技术可以应用于非常多的行业中,比如金融场景中做交易检测、贷款检测;工业场景中做生产线预警;安防...

架构师springboot
38分钟前
4
0
DecimalFormat 类基本使用

/* * DecimalFormat 类主要靠 # 和 0 两种占位符号来指定数字长度 * 0 表示如果位数不足则以 0 填充 * # 表示只要有可能就把数字拉上这个位置 * */ public static void main(String[] args){...

嘴角轻扬30
55分钟前
4
0
This APT has Super Cow Powers.

在Debian/Ubuntu上,apt包管理器内嵌着一个彩蛋. 如果你在命令行界面输入 apt help 在最后一行能找到This APT has Super Cow Powers. 说明该apt具有超级牛力 牛力是个什么梗? 则说明你的系统...

taadis
今天
3
0
起薪2万的爬虫工程师,Python需要学到什么程度才可以就业?

爬虫工程师的的薪资为20K起,当然,因为大数据,薪资也将一路上扬。那么,Python需要学到什么程度呢?今天我们来看看3位前辈的回答。 1、前段时间快要毕业,而我又不想找自己的老本行Java开发...

糖宝lsh
今天
9
0
携手开发者共建云生态 首届腾讯云+社区开发者大会在京举办

本文由云+社区发表 北京时间12月15日,由腾讯云主办,极客邦科技、微信、腾讯TEG协办的首届腾讯云+社区开发者大会在北京朝阳悠唐皇冠假日酒店举办。在会上,腾讯云发布了重磅产品开发者平台以...

腾讯云加社区
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部