达人帮助，是在是没有可用分了，也不知道怎么才能够增长可用分。帮忙看个简单的问题。

Question

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var h,h1:HWND;begin
h:=FindWindow('TEdit','');
h1:=GetFocus();
if h=h1 then
  showmessage('ok');
end;end.
按理来说，我现在在TEdit里面输入，应该h=h1呀（整个窗体就一个TEdit)，可是结果却是不等于，这是为什么呢？
另外，谁知道如何才能够获得更多的可用分？谢谢。

Answer 1

var h,h1:HWND;
begin
h:=findwindowex(Self.Handle,0,'tedit',0);
h1:=GetFocus();
if h=h1 then
showmessage('ok');
end;findwindowex查找子窗体每天登录一次csdn就可以得到10分,其它的你看看规则就知道了

Answer 2

楼上正解
FindWindow只查找顶层窗体，不查找子窗体，所以你用findwindow找TEdit返回0，表示找不到的
和getfocus当然不一样了