procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
//把窗口的KeyPreview := True;
if Key = Char(VK_RETURN) then
begin
SendMessage(Self.Handle, WM_NEXTDLGCTL, 0 , 0);
Key := Char(0);
end;
end;
begin
//把窗口的KeyPreview := True;
if Key = Char(VK_RETURN) then
begin
SendMessage(Self.Handle, WM_NEXTDLGCTL, 0 , 0);
Key := Char(0);
end;
end;