SendTextMessage 等方便的消息发送函数突然发现 Message 单元的最后给提供了几个方便的消息发送函数:SendTextMessage、SendStructMessage、SendGetStructMessage、SendGetIntMessage虽然函数实现的很简单, 但用他们发送文本、结构和整数, 的确方便了不少; 下面仅就 SendTextMessage 举例://例子是通过发送消息的方法给 Edit 赋值:unit Unit1;interfaceuses Windows, Me
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2
控制台读写program Project1;{$APPTYPE CONSOLE}var str: string;begin Writeln('请输入：'); Readln(str); Writeln('你输入的是：' + str); Readln;end.
WinAPI: FlashWindow - 闪烁窗口//声明:FlashWindow( hWnd: HWND; {窗口句柄} bInvert: BOOL {设为 True 才会闪烁}): BOOL;//举例:begin FlashWindow(Handle, True);end;
WinAPI: GetActiveWindow - 获取当前活动窗口的句柄//声明: GetActiveWindow: HWND; {无参数; 返回当前活动窗口的句柄}//举例:var h: HWND;begin h := GetActiveWindow; FlashWindow(h, True);end;
WinAPI: GetParent - 获取指定窗口的父窗口句柄//声明:GetParent( hWnd: HWND {窗口句柄}): HWND; {返回父窗口句柄}//举例:procedure TForm1.Button1Click(Sender: TObject);var h1,h2: HWND;begin h1 := GetParent(Button1.Handle); h2 := Panel1.Handle; ShowMessage(IntToStr(h1)); {590862
WinAPI: WindowFromPoint- 获取指定点所在窗口的句柄//声明:WindowFromPoint(Point: TPoint): HWND;//举例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1:
WinAPI: GetWindowRect、GetClientRect - 获取窗口的外部与内部矩形提示:1、其实用 Delphi 内部同类函数很方便的, 但系统函数是全局的;2、使用 GetClientRect 时, 一般要 Windows.GetClientRect, 因为 TForm 的父类有同名函数.//声明:{获取窗口外部矩形(相对于屏幕)}GetWindowRect( hWnd: HWND; {窗口句柄} var lpRect: TRect {用于返回的矩形指针}): BOO