Discussion :

[tarmo57]

SAlut tous je voudrais récupérer le code exa d'un coloDialog avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.ColorDialog1Close(Sender: TObject);
begin
Label2.Caption:=ColorToHex(ColorDialog1.Color); //Récupère le code hexa
end;

il fonctionne mais pour avoir le bon code couleur je suis obligé d'ouvrir la boite de dialogue deux fois??

avez vous une idée pour récupérer le code quand je clic sur le bouton OK de la boite de dialogue ?

Merci d'avance

[tourlourou]

Ne serait-ce pas plutôt un code du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if ColorDialog1.Execute // appelle le dialogue et vérifie si couleur sélectionnée
then Label2.Caption:=ColorToHex(ColorDialog1.Color);