万一 - 博客园

2008年1月23日

摘要： //一般写法 var MyForm1: TForm1; begin MyForm1 := TForm1.Create(nil); MyForm1.ShowModal; MyForm1.Free; end; //用 with 语句重写 with TForm1.Create(nil) do begin ShowModal; Free; end; 阅读全文

posted @ 2008-01-23 01:07 万一阅读(5847) 评论(2) 推荐(0)

2008年1月22日

Api 函数: GetCursorPos 与转换

摘要： //获取鼠标在窗体中的当前位置 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var str: string; begin str := Format('%d,%d',[X,Y]); ShowMessage(str)... 阅读全文

posted @ 2008-01-22 17:49 万一阅读(7205) 评论(3) 推荐(0)

TScreen 类 - 获取当前输入法与输入法列表

摘要： //获取输入法列表 begin Memo1.Lines := Screen.Imes; end; //获取当前输入法 var kl: HKL; i: Integer; begin kl := GetKeyboardLayout(0); for i := 0 to Screen.Imes.Count - 1 do if HKL(Screen.Imes.Objects... 阅读全文

posted @ 2008-01-22 16:58 万一阅读(6848) 评论(16) 推荐(0)

TScreen 类 - 判断当前焦点在哪个窗体上

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1:... 阅读全文

posted @ 2008-01-22 16:50 万一阅读(3988) 评论(0) 推荐(0)

TScreen 类 - 判断当前焦点在哪个控件上

摘要： procedure TForm1.Timer1Timer(Sender: TObject); begin Text := Screen.ActiveControl.ClassName; end; {多放几个控件, 按 Tab 测试; 但并不是所有控件都有焦点} 阅读全文

posted @ 2008-01-22 16:39 万一阅读(5372) 评论(0) 推荐(0)

TScreen 类 - 使用 Screen.Cursors

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; {需要个定时器} ... 阅读全文

posted @ 2008-01-22 16:02 万一阅读(3682) 评论(3) 推荐(0)

TScreen 类 - 通过 Screen 更换光标

摘要： //更换窗体或某个控件的光标可以不通过 Screen 对象, 譬如: begin Self.Cursor := crAppStart; Panel1.Cursor := crHandPoint; {光标可选值: crDefault = TCursor(0); crNone = TCursor(-1); crArrow = TCursor(-... 阅读全文

posted @ 2008-01-22 15:12 万一阅读(4444) 评论(7) 推荐(0)

TScreen 类 - 程序中窗体的个数

摘要： //一个包含两个窗体的例子, 这是工程中的内容: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar ... 阅读全文

posted @ 2008-01-22 14:10 万一阅读(3328) 评论(0) 推荐(0)

TScreen 类 - 关于 Screen 对象

摘要： Screen 对象是 TScreen 类的一个变量, 它声明在 Forms 单元的第 1323 行(Delphi 2007); 并且 TScreen 类也来自 Forms 单元. 也就是说, 只要 uses 了 Forms 单元, Screen 对象就可以使用了. 我们自己建立一个 TScreen 类的对象可以吗? 当然可以! var MyScreen: TScreen; begin ... 阅读全文

posted @ 2008-01-22 13:23 万一阅读(4609) 评论(3) 推荐(0)

TScreen 类 - 屏幕的逻辑宽度与高度

摘要： var w,h: Integer; begin w := Screen.Width; h := Screen.Height; Text := Format('当前屏幕的分辨率是: %d*%d', [w,h]); end; 阅读全文

posted @ 2008-01-22 13:09 万一阅读(4244) 评论(0) 推荐(0)