[delphi]Supprimer un compsant lors d'un evenement

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [delphi]Supprimer un compsant lors d'un evenement

el zozo

Stroumf Grognon

Comme le dit très bien l'aide de la methode "free" :

Citation :

Ne libérez jamais explicitement un composant dans un de ses propres gestionnaires d'événement ou dans un gestionnaire d'événement d'un composant qu'il possède ou contient.Par exemple,ne libérez pas un bouton,ou la fiche qui le possède,dans son gestionnaire d'événement OnClick.

Oui, mais manque de bol, c'est exactement ce que je souhaite faire (en fait, détruire un combobox après le "OnSelect" )

Quelqu'un a une solution élégante à me sugerer?

Publicité

xlogan

Tu l'as vu ?

Si tu veux détruire ce composant je ne crois pas que tu puisses le faire dans un de ses évènements ou alors tu devras prendre en compte le code avant et aprés le doSelect.

Je m'explique : la méthode que tu affectes au OnSelect de ton composant est déclenchée par le doSelect de son parent en terme d'héritage.
En fait il regarde si tu as rattaché le doSelect à un OnSelect que tu aurais codé. (inspecteur d'objet)

Pour savoir si ce parent fais qqch aprés le OnSelect tu dois regarder dans son code, mais si tu détruis le composant il y aura certainement des erreurs du genres "erreur à l'adresse toto...." car il ne se trouvera plus lui même.

J'espère que je ne suis pas trop flou.

Tu devrais plutot nous dire pourquoi tu as à détruire ce composant...

el zozo

Stroumf Grognon

-- Veuillez escuser les aproximation syntaxique, je n'ai pas de compileur sous la main. --

C'est ça. Il fait le "erreur à l'adresse toto" à la sortie de la procedure OnSelect (il arrive à finir l'execution de la procedure. Solide ces bestioles!).

Pour resumer, je suis en train de construire un composant(dérivant de TPanel) contenant une liste de combo.

Chaque combo est affiché sous le precedant.
Le dernier combo de la liste est toujours vide (liste de choix renseignée, mais ItemIndex = -1)
Lorsqu'on selectionne une valeur dans le dernier combo, un nouveau combo apparait en bas de la liste.

Ca donne grosso modo le code ci-dessous (avec un Tform "normal comme support):

Code :

type TForm1 = class(TForm)
ListCombo : TObjectList;
end;
Procedure TForm1.ReechelonerCombo;
var i : integer;
begin
//On affiche chaque combo de la liste, chacun espacer de 25 points
For i := 0 to ListeCombo.count-1 do begin
TComboBox(Liste[i]).top := (i+1)*25;
end;
function TForm1.AjouterCombo:TComboBox;
begin
//On crée un Combo qu'on ajoute à la liste
Result := TComboBox.create(self);
ListCombo.Add(Result);
Result.parent := Support;
Result.items := 'choix1';
Result.items := 'choix2';
Result.items := 'choix3';
Result.items := '--- supprimer ---';
Result.itemIndex := -1; //aucun choix selectioné
Result.OnSelect := TForm1.SelectionCombo;
end;
TForm1.procedure SelectionCombo(sender:TObject);
var combo : TcomboBox;
begin
Combo := TComboBo(sender);
If combo = ListCombo[ListCombo.count-1] // si c'est le dernier combo de
and Combo.itemIndex<>-1 then begin //et qu'on a selectioné quelque chose
AjouterCombo; //alors, on ajoute un nouveau combo (vide) au bas de l'écran
ReechelonerCombo;
end;
end;

Pour l'instant, on a donc une liste de choix qu'on peut etende à l'infini, mais on ne peut pas suprimer un élément.
Tu aura remarqué que dans la liste des choix, j'ai ajouté une valeur "--supprimer--". L'idée est que si l'utilisateur selectionnne cette valeur, le combo est supprimé et ceux en bas se décalent vers le haut.
Le code de la suppression est simple:

Code :

Procedure SupprimerCombo(Numero :integer);
begin
ListeCombo.delete(Numero);// La Liste Own ses élément, donc, le combo est supprimé
ReechelonerCombo;
end;

Mais où le caser [:alph-one] .
Pour l'instant, il est dans le TForm1.Canvas.OnRefresh(je teste chaque combo pour vois si il est sur "suprimer" ). Plutot crade et surtout, c'est galère pour une exécution pas à pas. :cry: .

Message édité par el zozo le 12-11-2006 à 21:58:00

el zozo

Stroumf Grognon

Si ça peut vous aider à vous faire une idée, voila un exemple simple d'utilisation

http://mapage.noos.fr/zozol/bin/listecombo.zip

xlogan

Tu l'as vu ?

Je ne vois pas trop de solution, en fait ta solution me semble pas mal mais je l'aurai dédiée à un objet tierce dont l'exécution aurait été déclenchée hors de la Combo. (le OnActivate du panel qui rend la main à la Combo précédente dans la liste ??)

C'est pas top mais c'est plus facile à débuguer je crois ?

FORUM HardWare.fr

Programmation

Delphi/Pascal

[delphi]Supprimer un compsant lors d'un evenement

Sujets relatifs
installer composants dans delphi	[Résolu] Question Poo en delphi
Me lancer dans le Delphi?	ide delphi gratuit et efficace; merci
Problème évènement et JTable	[Résolu]Fenêtres existentes et fenêtre active
[CSS / HTML] Supprimer le Scrolling vertical IFRAME	Batch - Supprimer les attributs lecture seule d'une archive zip
Est-il possible de supprimer un popup ?
Plus de sujets relatifs à : [delphi]Supprimer un compsant lors d'un evenement

Page générée en 0.063 secondes