H
HHSH
Unregistered / Unconfirmed
GUEST, unregistred user!
用下面的函数实现回车键代替TAB键后,麻烦来了。
一个窗口中有一个dbgrid、两个dbmemo,我希望在dbgrid中及在控件之间按回车键时实现
焦点转移到是很顺利的实现了,但希望在dbmemo中打回车键时实现换行而不是焦点转移,
请问如何实现?
procedure TForm_main.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN Then
Keybd_event(VK_TAB, 0, 0, 0);
end;
end;
procedure TForm_main.FormCreate(Sender: TObject);
begin
Application.OnMessage := DoEnterAsTab;
end;
一个窗口中有一个dbgrid、两个dbmemo,我希望在dbgrid中及在控件之间按回车键时实现
焦点转移到是很顺利的实现了,但希望在dbmemo中打回车键时实现换行而不是焦点转移,
请问如何实现?
procedure TForm_main.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_RETURN Then
Keybd_event(VK_TAB, 0, 0, 0);
end;
end;
procedure TForm_main.FormCreate(Sender: TObject);
begin
Application.OnMessage := DoEnterAsTab;
end;