M2客户端调用的各类函数说明
TRect 定义一个矩形区域对象TClickPoint = record
rc: TRect;
rstr: string;
end;
PTClickPoint = ^TClickPoint;
Delphi为用户提供了一个方便的绘图环境,即某些控件的CANVAS属性(画布)。用户可以把某些控件的表面作为一张画布,在上面绘制各种图形或显示图像,但在CANVAS的使用过程中少不了一个特殊对象,那就是矩形RECT,灵活使用它会完成很多特殊的功能,为Delphi编制的Windows程序增加活力。
RECT的特点
----RECT既是一个特殊的数据结构，又是一个函数,它的作用就是定义一个矩形区域对象,而作为函数使用时它可以用两个属性(Tpiont型)指明区域范围,同时也可分解成四个单一的变量类型(Integer型),即:
topleft:左上角坐标(Tpiont型变量)；
bottomright:右下角坐标(Tpiont型变量)；
topleft.x或left:左上角横坐标；
topleft.y或top:左上角纵坐标；
bottomright.x或right:右下角横坐标；
bottomright.y或bottom:右下角纵坐标。
----例如，下面三种方法定义一个相同的RECT变量:
Rect(10,10,110,210);
topleft:=Piont(10,10);
bottomright:=Point(110,210);
left:=10;top:=10;right:=110;Bottom:=210;
----下面的代码在Form1窗体上定义一个RECT矩形并用红色填充:
var
NewRect: TRect;
begin
NewRect := Rect(20, 30, 50, 90);
Form1.Canvas.Brush.Color := clRed;
Form1.Canvas.FillRect(NewRect);
end;
----从上面可以看出,RECT只是一个通用变量,它并不属于任何控件本身,定义之后可由任何具有CANVAS属性的控件使用,以指明某控件表面的一个矩形区域,并且程序运行过程中可随意修改尺寸和位置。
RECT操作命令
Rect(x1,y1,x2,y2):定义Rect区域范围。
FillRect(rect:Trect):用填充色填充Rect区域。
FloodFill:用填充色填充Rect之外区域。
textrect(Rect:TRect;X,Y:Integer;constText:string):在Rect对象中显示文本,其中的X、Y为显示文本的坐标值,是相对于画布的坐标而不是相对于RECT的坐标；const为显示的字符个数；string为待显示的字符串，只有在RECT内的字符才能显示出来,超出部分不显示。
stretchdraw(constRect:TRect;Graphic:TGraphic):把图像文件填充到Rect之中,并且图像按RECT的尺寸自动伸缩,其中的Graphic可为BMP或ICO等图像资源。
font.size:定义画布上显示文字的尺寸。
font.color:定义画布上显示文字的颜色。
textwidth:返回字符串的长度。
textheight:返回字符串的高度。
Brush.Color:定义画布的填充颜色。
Copyrect(Dest:TRect;Canvas:Tcanvas;Source:TRect):把图像从一个矩形中拷到另一个矩形之中,并且按目标矩形尺寸自动伸缩,其中，Dest为目标画布矩形,Canvas为源画布,Source为源矩形。
----由于上述命令均是基于画布本身使用的,所以具体使用时必须加上控件及画面属性,例如下面的代码:
var
TheRect: TRect;
begin
TheRect.Top := 10;
TheRect.Left := 10;
TheRect.Bottom := 100;
TheRect.Right := 100;
Form1.Canvas.TextRect(TheRect,0,0,‘Hello,
world!‘);
end;
COPY函数
功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。
参考实例：
var
S: String;
MyStr: String; // 保存新的字符串
begin
S := 'I Love China!';
//下面将获取I Love China中的“Love”字符串。
MyStr := Copy(S, 3, 4);
end;
执行结果，MyStr等于“Love”，“Love”字符串在“I Love China!”中第3个位置开始，所以第二个参数为3，“Love”一共有4个字符，所以第三个参数为4。
Val函数
Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值,存放在var中。St必须是一个表示数值的字符串,并符合数值常数的规则。在转换过程中,如果没有检测出错误,变量code置为0,否则置为第一个出错字符的位置。例如,st:=25.4E3,x是一个实型变量,则val(st,x,code)将使X值为25400,code值为0。
GetCursorPos函数
//用 GetCursorPos 获取的是鼠标相对与屏幕的位置
var
ps: TPoint;
str: string;
begin
GetCursorPos(ps);
str := Format('%d,%d',);
ShowMessage(str);
end;
OnIdIe事件
对应对象：TApplication
声明： property OnIdle: TIdleEvent；
功能：在应用程序空闲时将发生OnIdle事件c
如果用户想在应用程序空闲时处理一些操作，可以将一个事件处理代码添加到
OnIdle事件上去。TIdleEvent的类型被声明成为OnIdLe，定义是：
TidleEvent=procedure(Senger:Tobject; var Done: Boolean) of object；
其中Done参数缺省时为真，声明应用程序等待系统的信息。当Done参数为假
时，应用程序将不处理系统信息。使用OnIdle事件要特别注意，许多应用程序
不需要处理这个事件。（
DInput获取数据主要分为直接和缓存两种方式。我主要讲直接方式（因为最简单:)）。
要在Delphi里获取DInput的数据，最好是在程序的OnIdle事件里。这样就能不断地轮询DInput的输入。
首先声明一个OnIdle函数
procedure AppIdle(Sender: TObject; var Done: Boolean);
然后在程序初始化时设置，Application.OnIdle := AppIdle;
接下来就可以在AppIdle函数里获取DInput输入了.代码如下:
//激活OnIdle事件
Done := False;
//键盘消息
FDInputKeyBoard.GetDeviceState(256, @keyboard_state);
for i := 0 to 255 do
begin
if keyboard_state <> 0 then
Self.Canvas.TextOut(0,0, '你按了一个键，它的代码是：' + IntToStr(i));
end;
end;
//鼠标消息
FDInputMouse.GetDeviceState(SizeOf(DIMOUSESTATE), @mouse_state);
if (mouse_state.lX <> 0) or (mouse_state.lY <> 0) then
begin
Self.Canvas.TextOut(0,20, '鼠标的X坐标移动量：' + IntToStr(mouse_state.lX));
Self.Canvas.TextOut(0,40, '鼠标的Y坐标移动量：' + IntToStr(mouse_state.lY));
end;
if mouse_state.rgbButtons <> 0 then
Self.Canvas.TextOut(0,60, '你按了鼠标的左键');
关于如何在Delphi的VCL环境里使用DirectInput，我就教到这里了。有关DInput的更详细信息，请参考微软的DX9SDK。
最后是完整的DInput鼠标和键盘的演示程序
）
SetBkMode函数
SetBkMode( Canvas.Handle, TRANSPARENT ); //设置字体输出为背景透明
背景颜色
clBlack（黑色），clMaroon（暗红），clGreen（绿色），clOlive（橄榄绿），clNavy（深蓝），clPurple（紫色），clTeal（深青），clGray（灰色），clSilver（浅灰），clRed（红色），clLime（浅绿），clYellow（黄色），clBlue（蓝色），clFuchsia（紫红），clAqua（青绿），clWhite（白色）。
页:
[1]