colorier l'élément séléctionné du listbox et le retirer si un autre est séléctio

Question

bonjour tt le monde, je suis devenu accro sur ce forum et franchement merci à tt ceux qui répondent aux autres..
j'ai une listbox et je veux colorier l'élément séléctionné du listbox par une couleur différente puis le retier du listbox si un autre est séléctionné. merci de me répondre.

Caribensila · Answer

Salut,


procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Tag := -1;
end;




procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
                                                     Shift: TShiftState; X, Y: Integer);
begin
 ListBox1.Items.Delete(ListBox1.Tag);
end;



procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
                                                 Shift: TShiftState; X, Y: Integer);
begin
  ListBox1.Tag := ListBox1.ItemIndex;
end;

Caribensila · Answer

... Pardon !
Plus simple :


procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Tag := -1;
end;




procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ListBox1.Items.Delete(ListBox1.Tag);
  ListBox1.Tag := ListBox1.ItemIndex;
end;

hajerhajer · Answer

merci bcp pour la réponse, ça m'a aidé énormément!

Colorier l'élément séléctionné du listbox et le retirer si un autre est séléctio

3 réponses

Votre réponse

Discussions similaires