[Delphi] - inserimento licenza stile windows

[bDaniele]

devo realizzare una finestra di inserimento del numero di licenza d'uso stile windows, cioè ho 5 campi edit e vorrei che quando inserisco i primi 5 caratteri nel primo campo mi passi subito al secondo.
io ho pensato di implementarlo controllando sul key_down la lungheezza del campo e se = a 5 andare al successivo, ma se stò modificando il terzo carattere ad esempio, è brutto che va al successivo quindi dovrei controllare la posizione del cursore nel componente, ma non so come fare.

Ancora una cosa, vorrei che durante l'inserimento sia attivato l'overwrite, cioè ce ricopre quello che ho gia scritto, c'è un'istruzione o devo gestirlo a mano (eventualmente come)?

è fattibile o è meglio usare un maskedit con l'apposita maschera? :sexpulp:

saluti

[alka]

Io ho fatto questa prova: ho disposto sul forum 3 controlli Edit e ho associato loro lo stesso evento OnKeyUp definendolo in questo modo:

procedure TForm1.EditsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  Edit: TEdit;
begin
  Edit := (Sender as TEdit);
  if (Length(Edit.Text) = Edit.MaxLength) and (Edit.SelStart = Edit.MaxLength) then
    Perform(CM_DIALOGKEY, VK_TAB, 0);
end;

Il codice identifica l'Edit che ha il focus e riceve l'evento di pressione del tasto. Quando la lunghezza del testo contenuto (che va limitata tramite la proprietà MaxLength) raggiunge la lunghezza massima consentita e il cursore si trova nella posizione terminante del testo, viene simulata la pressione del tasto TAB per passare al controllo successivo.

Se modifichi parte del testo che non si trovi alla fine dello stesso, non accade nulla, a meno che non premi il pulsante Fine e allora verrai automaticamente trasportato alla casella di testo successiva.

Il meccanismo può essere ovviamente migliorato e ampliato.

Ciao!

[bDaniele]

grazie alka, rispetto a quello che avevo fatto io c'è giustamente la seconda parte dell'if e ho usato il sendmessage per dare il focus al campo successivo, del resto anche io avevo una variavile Edit di tipo tEdit

hai suggerimenti per come gestire la modalità di sovrascrittura?

[alka]

Originariamente inviato da bDaniele
hai suggerimenti per come gestire la modalità di sovrascrittura?

Io userei una MaskEdit, in modo da non complicarsi troppo la vita per una funzionalità che, alla fine dei conti, è secondaria.

[bDaniele]

Originariamente inviato da alka
Io userei una MaskEdit, in modo da non complicarsi troppo la vita per una funzionalità che, alla fine dei conti, è secondaria.

sono perfettamente d'accordo anche se ho risolto con un metodo alternativo abbandonando l'idea di prima.

Grazie mille.