Dipende da cosa intendi per "evidenziare".
Se intendi selezionare il testo contenuto nel controllo, è giusta l'indicazione del metodo SelectAll, anche se dovrebbe essere eseguito in automatico quando sposti il focus sul controllo se la proprietà AutoSelect è impostata a True.
Se invece vuoi modificare il colore del controllo quando sposti il focus su di esso, come se dovessi accentuare la posizione di editing senza accontentarti del lampeggio del cursore, puoi definire gli eventi OnEnter e OnExit in modo simile a questo:
Se vuoi generalizzare questo comportamento per tutti i DBEdit posizionati sul form, puoi associare gli eventi a tali controlli e sostituire DBEdit1 con TDBEdit(Sender).codice:procedure TForm1.DBEdit1Enter(Sender: TObject); begin DBEdit1.Color := clYellow; end; procedure TForm1.DBEdit1Exit(Sender: TObject); begin DBEdit1.Color := clWindow; end;
La soluzione migliore è creare una nuova classe che deriva da TDBEdit che effettua automaticamente il cambio di colore quando si entra e si esce dal controllo, scavalcando i relativi metodi di gestione.
Ciao!![]()

Rispondi quotando