rt
解决方案 »
- 预编译指令 {$DEFINE MESSAGE_REGISTRY_CLEAN 10000} 放在哪合适?
- 软件标题栏文字如何居右?或居中?
- 200分提问,别笑我,的确很郁闷..关于汉字和数字字母组合在一起的两个文本,如何比较出不同的.................
- 别人我一个pas源文件,怎么才能得到DPR文件并生成EXE文件????
- 请教关于三层结构中应用服务器BDE应用程序无响应问题如何解决?
- SQL的参数设置问题,问题解决即给分。
- 开发中的Delphi程序员签名(明天下班后结贴)
- 各位DELPHI高手们,我想知道DELPHI开发数据库有没有优势。
- 现在我需要快捷键方式,用HOOK有缺陷,在操作别的程序时,也会响应;用MainMenu时候又没有我想要的Ctrl+F4, 怎么办
- 关于联表的小问题,解决后马上给分
- 我是一个delphi的新手,能不能介绍我一个入门的书,最好是电子读书,谢谢
- 汉化了Express Printing System and SpreadSheet 有用的进来。
var
s1: string;
hwndEdit,hwndNotepad: HWND;
begin
s1 := 'Hello!';
ShowMessage(s1);
hwndNotepad := FindWindow(0,PChar('无标题 - 记事本'));
hwndEdit := FindwindowEx(hwndNotepad,0,'Edit',0);
//SetWindowText(hwndEdit,PChar(s1));
SendMessage(hwndEdit,WM_SETTEXT,0,lParam(PChar(s1)));
end;
比如焦点落在任意一个程序的任意一个文本框内,如何获得这个文本框的Handle??
除非你的程序在后台运行,否则的话焦点会在你的程序中。
Shift: TShiftState; X, Y: Integer);
var p:Tpoint;
h:hwnd;
begin
p.X:=x;
p.Y:=y;
h:=WindowFromPoint(p);
end;