不知你是不是这个意思://FocusHwnd:HWND;procedure TForm1.Edit1Exit(Sender: TObject);
var
Name:array[0..255] of char;
begin
FocusHwnd:=GetFocus;
//GetClassName(FocusHwnd,Name,255);
//Label1.Caption:=Name;
GetWindowText(FocusHwnd,Name,255);
Label2.Caption:=Name;
end;
var
Name:array[0..255] of char;
begin
FocusHwnd:=GetFocus;
//GetClassName(FocusHwnd,Name,255);
//Label1.Caption:=Name;
GetWindowText(FocusHwnd,Name,255);
Label2.Caption:=Name;
end;
解决方案 »
- MDI 子窗体打开MDI 子窗体
- 问个大家都没有回答的问题。。。请进
- UDP外网和内网通信
- 请问如何将DBGrid中选中的一行记录(只有一个字段)拖动到listbox或memo中?在线等待ing
- 50分 请教Ehlib3.0的完整的安装,卸载方式。
- 点对点传输语音
- 一个关于tcriticalsection的问题
- 在delphi中如何将一个auto-create的窗体转换到available窗体?(急)
- 菜鸟急救:关于DBGrid
- 请问有什么软件或编程的方法把打包好的安装程序里的资源释放出来?
- 请问是不是需要按日期查找数据库里的内容时,其库里关于日期的字段必须为Date类型?但运行的时候总是说类型不匹配?为什么?我都要疯了!
- 帮小弟看一下吧(3个问题)
太厉害了,我简直崇拜你了!!!
不要笑我哦,对了还是错了?