Posez votre question Signaler

Remplire Font Combobox [Résolu]

Hassèn21 121Messages postés 24 août 2008Date d'inscription 3 avril 2010Dernière intervention - Dernière réponse le 15 juin 2009 à 19:49
Bonjour,
Avec Delphi7 je veux remplir les items d'un simple font combobox?? comment pourrais-je faire car j'ai trouvé beaucoup d'exemple de font combobox qui m'ont pas aidé.
Merci d'avance.
Lire la suite 

Remplire Font Combobox »

4 réponses
Réponse
+0
moins plus
Salut,

Je ne sais pas si j'ai tout bien compris, mais sous Excel que tu mette ton combobox sur une feuille ou sur une Userform, pour le combobox sur la feuille, mets toi en mode création à partir de la barre Visual Basic double clic sur le combobox pour ouvrir la fenêtre des propriétés, cherches dans cette fenêtre

Backcolor et choisis ta couleur de font

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
Ajouter un commentaire
Réponse
+0
moins plus
Non c'est pas ça le combobox doit contenir les noms de mes police
Ajouter un commentaire
Réponse
+0
moins plus
Salut,

Expliques, tu parles de font, je pensais que tu parlais de FOND, autant pour moi, que veux tu que le texte affiché dans ton combobox soit en couleur ou la couleur du texte que tu rapatris d'une cellule
A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
Ajouter un commentaire
Réponse
+0
moins plus
bon merci beaucoup mais j'ai trouvé la solution ce que j'ai voulus faire c'est remplir les items de combobox de police de client par example: arial, arial black , Browallia New ...

la solution c'est d'ajouté :

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox2.Items:=Screen.Fonts;
ComboBox2.Text:=RichEdit1.Font.Name;
end;
Ajouter un commentaire
Ce document intitulé « Remplire Font Combobox » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?