随笔分类 - Delphi
摘要:语法: function StringOfChar(Ch: Char; Count: Integer): string; function DupeString(const AText: string; ACount: Integer): string; 说明: StringOfChar :填充Count个Ch字符到字符串中,返回填充后的字符串。 DupeString :填充ACount个A...
阅读全文
摘要:演示效果:添加控件:Form1,Button1,Label1,Label2,Timer1GetCapture:返回当前捕获鼠标输入的窗口的句柄SetCapture():通过句柄设置指定窗口来捕获鼠标的输入ReleaseCapture:释放当前捕获鼠标的窗口的捕获功能同一时间只能有一个前景窗口可以捕获鼠标。当在控件上按下鼠标时,会自动执行SetCapture(),这时该控件的鼠标移动事件在全屏都会触...
阅读全文
摘要:演示效果 添加控件:Form1,Form2,Button1,Image1 说明:关键函数GetPic(Source:TRect) 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,...
阅读全文