Tecla Enter en un TMEMO

[[BlueSteel]]

Empezado por roman

de hecho, sería Ctrl+Enter.

Tienes razón roman... era Ctrl+Enter......

es que aveces me confundo con otros objetos que necesitan combinación Shift+Enter

Salu2

[ecfisa]

Si pongo un Memo y uno o más componentes en un Form me puedo pasar la tarde dandole al enter dentro del Memo que no va a cambiar el foco...
Claro está, si no tengo por algún lado ( Form1.KeyPreview:= True) y asignado al evento OnKeyPress el siguiente código:



Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key:=#0;
Perform(wm_nextdlgctl,0,0);
end;
end;








Creo que esa es la razón de la pérdida de foco.