Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Nicola - Ottobre 21, 2016, 06:25:44 pm

Titolo: Oggetto CheckComboBox (Risolto)
Inserito da: Nicola - Ottobre 21, 2016, 06:25:44 pm

Buona sera,
volevo utilizzare l'oggetto CheckComboBox, al posto del classico ComboBox, però non riesco ad inserire
gli items a runtime.

Codice: [Seleziona]

procedure TForm2.FormShow(Sender: TObject);
begin
CheckComboBox1.Items.Clear;
CheckComboBox1.Items.Add('Aggiungi 1');
CheckComboBox1.Items.Add('Aggiungi 2');
end;

quando cerco di selezionare gli elementi mi segnala l'errore allegato
(vedasi immagine);
la stessa procedura funziona regolarmente con un ComboBox classico,
ma non ne comprendo il motivo.
Grazie

Codice: [Seleziona]

if not (csDesigning in ComponentState) then
    aEnabled:= (aEnabled and PTCheckComboItemState(Items.Objects[Index])^.Enabled);   

Titolo: Re:Oggetto CheckComboBox
Inserito da: bonmario - Ottobre 21, 2016, 07:43:07 pm

Ciao, se non c'è già, devi aggiungere alla uses "StdCtrls".

Al posto del tuo codice, usa questo:

Codice: [Seleziona]

  CheckComboBox1.Items.Clear;
  CheckComboBox1.AddItem('Aggiungi 1', cbUnchecked);
  CheckComboBox1.AddItem('Aggiungi 2', cbUnchecked);

Ciao, Mario

Titolo: Re:Oggetto CheckComboBox
Inserito da: Nicola - Ottobre 24, 2016, 09:10:01 am

Perfetto grazie, in effetti ha una sua logica (e ci mancherebbe), se non definisco il fatto
che sia cheched o meno va in errore.
Grazie.