TEdit e Input Box (risolto)

[Nicola]

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:

Codice: [Seleziona]

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;

[bonmario]

Ciao,
l'unica cosa che mi viene in mente, è quella di sfruttare l'evento "KeyUp" con qualcosa di simile:

Codice: [Seleziona]

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

[nomorelogic]

le form hanno l'evento KeyPreview che fanno in modo che quando si preme un tasto dentro ad un controllo qualsiasi, vengono prima mandati in esecuzione gli eventi della form che li contiene

da li dovrebbe essere facile spostare il focus

[Nicola]

Con l'aggiunta di bonmario funziona come desideravo, grazie.

[schumi]

solitamente metto un codice simile nel formkeypress

   if ActiveControl is TEdit then
    begin
        key:=#0;
        SelectNext(ActiveControl,true, true);
    end;