[Delphi 7] Problema TCheckBox

[alanf1981]

Ciao a tutti! ecco il mio problema : il mio programma crea 5 TCheckBox quando l'utente clicca su un certo bottone. In un secondo momento io vorrei verificare quali dei 5 checkbox è fleggato ma come faccio a verificare la proprietà 'checked' se non ho il riferimento all'oggetto (infatti so solo il nome)? In pratica volevo chiedervi se, avendo solo il nome dell'oggetto(in stringa), è possibile referenziarsi all'oggetto stesso? devo effettuare qualche Cast o altro?

Grazie mille!!!!!

[bDaniele]

Si puoi fare così:

   TCheckBox(FindComponent('MyCheckBox')).Checked
   then ...

[alka]

La soluzione ottimale sarebbe memorizzare i riferimenti ai controlli CheckBox creati a runtime in una lista, poichè la FindComponent tende a diventare sempre più "pesante" man mano che il numero di componenti cresce sul form (poichè l'elenco dei componenti viene scandito ogni volta che se ne cerca uno)...

...ma per 5 sole CheckBox la soluzione di Daniele è perfetta!

Inutile complicarsi la vita quando non è necessario.

Ciao!

[alanf1981]

Ok! grazie mille!!!!!!!!
E se creassi un array dinamico di TCheckbox?

[alka]

Ti dirò...se le CheckBox sono 5, non valeva nemmeno la pena di scandirle con un ciclo, ma bastava dare loro un nome significativo.

Se devi utilizzare un array dinamico, allora ti suggerisco una lista, che si gestisce più facilmente ed è meno vulnerabile ad errori di programmazione, senza contare il fatto che un array dinamico deve essere ridimensionato opportunamente dal programmatore e non gode delle migliori performance.

Ciao!

[alanf1981]

Ok grazie! se invece creassi in run-time degli oggetti Intraweb IWLink (TIWLink) come posso vedere quale IWLink è stato cliccato???

Thanks u!!!!

[alka]

Devi creare un metodo per il form compatibile con l'evento che vuoi gestire e associarlo tramite codice.

Ad esempio, si può aggiungere ad una form un metodo del tipo

procedure TForm1.Button1Click(Sender: TObject);
begin
  il codice qui...
end;

e associarlo all'evento del controllo visuale o componente creato a runtime in questo modo:

var
  MyButton: TButton;
begin
  MyButton := TButton.Create(Self);
  MyButton.Parent := Self;
  MyButton.OnClick := Button1Click;
end;

Questo esempio riguarda un TButton, ma il procedimento è applicabile a qualsiasi altro componente o controllo.

Ciao!

[alanf1981]

ok grazie! ho provato a fare come dici tu e funziona se creo solo un oggetto! se ne creo + di uno in runtime come faccio a vedere quale IWLink è stato cliccato? (oppure nel tuo esempio quale bottone è stato premuto)

grazie mille!!!!

[alka]

E' il parametro Sender che identifica il controllo che ha generato l'evento. Attraverso tale parametro, dopo averlo "castato" al tipo di controllo/componente interessato, potrai identificare su quale elemento è stato riscontrato l'evento esaminando le proprietà Name, Tag, ecc.

  if TIWLink(Sender).Name = 'IWLink1' then
    ...

(codice di esempio non verificato)

Ciao!

[alanf1981]

Se viceversa so il nome dell'oggetto (es : TIWLink1) come posso referenziarmi all'oggetto con questo nome???

grazie millllllllle!!!!!!!!