var
dwStyle: DWORD;
FEditWnd : hwnd;
begin
dwStyle := WS_VISIBLE or WS_CHILD or ES_MULTILINE or ES_AUTOVSCROLL or ES_LEFT;
FEditWnd := CreateWindow('EDIT', nil, dwStyle, 10,10,100,100, self.Handle, 0, hInstance, nil);
SetWindowText(FEditWnd, PChar('test'));
ShowWindow(FEditWnd, SW_SHOWNORMAL);
Windows.SetFocus(FEditWnd);
end;
这样创建出来edit不能接收tab键,且当其获得焦点的时候,移动键盘左、右键,会自己将焦点移到其他控件上,操作类似于按下了tab键,不知是何缘故
dwStyle: DWORD;
FEditWnd : hwnd;
begin
dwStyle := WS_VISIBLE or WS_CHILD or ES_MULTILINE or ES_AUTOVSCROLL or ES_LEFT;
FEditWnd := CreateWindow('EDIT', nil, dwStyle, 10,10,100,100, self.Handle, 0, hInstance, nil);
SetWindowText(FEditWnd, PChar('test'));
ShowWindow(FEditWnd, SW_SHOWNORMAL);
Windows.SetFocus(FEditWnd);
end;
这样创建出来edit不能接收tab键,且当其获得焦点的时候,移动键盘左、右键,会自己将焦点移到其他控件上,操作类似于按下了tab键,不知是何缘故
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货