Ogni tanto mi faccio vivo con domande banali.
Perchè nel TEdit non esco dalla casella con il tasto <Return>> ma solo con il Tab, mentre da Input
Box riesco ad uscire dal controllo premendo appunto <Return>?.
Ho provato ad "intercettare" cosi' ma nessun risultato:
procedure TForm1.ECasella1Change(Sender: TObject);
var Parola:string;
begin
if ECasella1.Text<>''
then begin
Parola:=ECasella1.Text;
if Parola[length(Parola)]=char(13) then showmessage('hi');
end;
end;
Ciao,
l'unica cosa che mi viene in mente, è quella di sfruttare l'evento "KeyUp" con qualcosa di simile:
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_RETURN) then begin
Edit2.SetFocus;
end;
end;
P.S. Tra le uses, devi aggiungere "LCLType".
Ciao, Mario