[delphi]: Simulare pressione del tasto tab

[elevation]

ciao a tutti,

come posso simulare (sostituire) la pressione del tasto tab??

Inoltre è possibile dare la stessa funzione del tab ad un altro tasto?

ciao

[alka]

Devi gestire l'evento OnKeyPress che viene generato quando si preme un tasto. A seconda dell'ambito di applicazione della funzionalità di sostituzione del tasto, devi scegliere se gestire l'evento in relazione ad un controllo visuale particolare oppure a livello di form (che avrà validità per tutti i controlli visuali).
Ricordati di impostare a True la proprietà KeyPreview del form in quest'ultimo caso.

Nel metodo di gestione dell'evento OnKeyPress, il parametro Key rappresenta il tasto premuto. Controlla se si tratta del tasto che vuoi sostituire con TAB (supponiamo che sia INVIO per comodità) e memorizza il codice del TAB nel parametro.

if Key = #13 then
  Key = #8;

Ciao!

[Piero Salandin]

Mi sa che non basta mica
Questo evento da me funziona egregiamente:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if (Key=#13) then begin
        SelectNext(ActiveControl as TWinControl, true, true);
        Key := #0;
    end;
end;

Ciauz...
btw: #8 è il backspace :-)

Originariamente inviato da alka

if Key = #13 then
  Key = #8;

Ciao! [/B]

[alka]

Sorry, ho fatto qualche prova. Questa implementazione funzionava in un modello di codice che avevo, ma evidentemente non è sufficiente per ottenere l'effetto di passaggio da un controllo al successivo (sempre che si voglia ottenere questo effetto...è quello probabile, ma non è stato indicato nel messaggio...).

Per passare al controllo successivo, confermo l'uso del metodo SelectNext proposto da Piero.

Inoltre, il carattere corrispondente al TAB è il #9 (svista) :quipy:

Ciao!