Evidenziare testo in listbox

[mecoman]

Ciao a tutti.

Come da titolo vorrei che all'avvio della mia applicazione il primo testo presente in una listbox sia già evidenziato. Qualche dritta?

Grazie, ciao.

[Narciso]

Guarda un po' se fa al caso tuo

procedure TForm1.FormCreate(Sender: TObject);
begin
  LISTBOX1.ITEMINDEX:=0;
end;             

[mecoman]

Ciao Narcisio. Ho provato a fare come mi hai detto ma non funziona. Hai altri consigli?

[Stilgar]

Cosa intendi per già evidenziato?
Se parli del testo "selezionato", devi dare il focus al controllo.

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
begin
  LISTBOX1.ITEMINDEX:=0;
  LISTBOX1.SetFocus;
end;       

Stilgar

[mecoman]

Ciao Stilgar. Per evidenziato intendevo, come hai scritto tu, "evidenziato".

Ho provato con il codice che mi hai scritto (scrittomi anche da Narciso) ma all'avvio del programma mi genera questa eccezione: " Il progetto prject1 ha sollevato un'eccezione di classe 'Exception' con messaggio: TListBox Index 0 out of bounds 0..-1. In file '\include\customlistbox.inc' at line 197 ".

Dove può essere il problema?

Ciao, grazie.

[bonmario]

Il problema è che nella lista devi avere almeno un elemento e, per quel che ne so io, non si può fare la SetFocus nell'OnCreate. Fai così:

Codice: [Seleziona]

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.Add('CIAO1');
  ListBox1.Items.Add('CIAO2');
  ListBox1.Items.Add('CIAO3');
  ListBox1.Items.Add('CIAO4');
  ListBox1.Items.Add('CIAO5');
  if (ListBox1.Items.Count > 0) then begin
    ListBox1.ItemIndex:=2;
  end;
end;

Provato e funzionante, ti evidenzia "CIAO3".

Ciao, Mario

[mecoman]

Ciao Mario, grazie per la risposta. Ho provato come mi hai detto e funziona.

Quello che hai fatto tu, però, è quello di aggiungere "Ciao1-2-3-4-5" dal codice. Quello che vorrei fare io è quello di aggiungere il testo caricandolo da un file .txt.

Consigli?

Grazie, ciao.

[bonmario]

Scusa, toglimi la curiosità: hai appena iniziato a programmare o hai appena iniziato ad usare Lazarus/FPC?

Per fare quello che dici, invece di aggiungere i dati con la Add, se nel tuo file di testo ogni riga del file corrisponde ad una riga della ListBox, li puoi caricare con l'istruzione

Codice: [Seleziona]

ListBox1.Items.LoadFromFile('Percorso e nome del file TXT');

Se invece non hai una corrispondenza 1 a 1, devi fare tu il ciclo di lettura dal file e, quando serve, caricare i dati nella ListBox.

Ciao, Mario

[mecoman]

Ciao a tutti.

Ho risolto il problema che avevo.

Grazie per i consigli