Petits détails sur CheckBox et ComboBox

Version imprimable

03/01/2008, 14h44
User Name

Petits détails sur CheckBox et ComboBox

Bonjour,
Ca fait une heure que je cherche dans l'aide Delphi, sur Google et dans les livres, je n'arrive pas à trouver comment mettre le fond d'une CheckBox transparent parce qu'il n'y a pas la même option que pour les Labels dans l'Inspecteur d'Objets.

Et puis je n'arrive pas non-plus à créer un ComboBox de plusieurs lignes...
Comment faire?

Voici comment ajouter un texte à une combo ou afficher le num de la ligne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.IAeverButton1Click(Sender: TObject);
begin
ComboBox1.Items.Insert(-1,ComboBox1.Text);
ComboBox1.text:='';
end;
 
procedure TForm1.IAeverButton2Click(Sender: TObject);
var
num:string;
begin
str(ComboBox2.ItemIndex,num);
ShowMessage('Vous avez sélectionné le numero '+num);
end;
 
procedure TForm1.IAeverButton3Click(Sender: TObject);
begin
ShowMessage(ComboBox2.Items[ComboBox2.ItemIndex]);
end;

Sinon un exempl d'utilisation de la colorcombobox (ça peu tjours servir);)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.ColorComboBox1Change(Sender: TObject);
begin
ColorComboBox1.ClearSelection;
label1.Font.Color:=ColorComboBox1.ColorValue;
end;
 
procedure TForm1.ColorComboBox2Change(Sender: TObject);
begin
ColorComboBox2.ClearSelection;
label1.Color:=ColorComboBox2.ColorValue;
end;
 
procedure TForm1.FontComboBox1Change(Sender: TObject);
begin
label1.Font.Name:=FontComboBox1.FontName;
end;

03/01/2008, 16h44
Gilbert Geyer

Salut,

Citation:

je n'arrive pas à trouver comment mettre le fond d'une CheckBox transparent

... c'est CheckBox ? ou CheckListBox ?

... car si c'est CheckListBox on peut avoir la chance qu'il se comporte de manière similaire à une ListBox et il se trouve justement que dans une autre discussion il y a ce lien : http://www.swissdelphicenter.ch/torr...de.php?id=1982
qui débouche sur du code qui permet de créer des Listbox transparents.

En bidouillant ce code pour l'adapter à la CheckListBox ça pourrait peut-être marcher.

A+ :D
03/01/2008, 22h27
User Name

C'est CheckBox, pas CheckListBox, mais merci pour le lien je vais voir.
Sinon, j'ai peut-être mal formulé ma question pour le ComboBox, en fait avec l'Inspecteur d'Objets je ne peux modifier que la première ligne (ou option) du ComboBox, mais je voudrais rajouter deux lignes au ComboBox dans lesquelles je veux écrire deux choses différentes.
Le -1 dans ton code AT, il indique quoi?
04/01/2008, 11h37
Gilbert Geyer

Salut,

Citation:

Le -1 dans ton code AT, il indique quoi?

... le -1 dans la méthode Insert spécifie l'index de la ligne dans laquelle on veut insérer une chaîne ... sauf que l'aide de Delphi dit clairement: "Si Index a la valeur 0, la chaîne est insérée au début de la liste" : c'est donc 0 qu'il faut et non -1.

Citation:

en fait avec l'Inspecteur d'Objets je ne peux modifier que la première ligne (ou option) du ComboBox, mais je voudrais rajouter deux lignes au ComboBox dans lesquelles je veux écrire deux choses différentes.

... tu parles certainement de la "première ligne" qui correspond à la propriété 'Text',
... mais tu disposes également de la proriété Items (TStrings) et si tu double-cliques sur (TStrings) tu peux ajouter les lignes suivantes dès la conception.

... et tu peux aussi ajouter des lignes en cours d'exécution avec ComboBox1.Items.Add(maChaineSuivante);

A+ :D