[Delphi]Como definir a cor do form com color dialog

[DarkSj 0]

Olá pessoal, estou aqui para postar um código básico, mas qe pode ajudar as pessoas

Copie e cole isso em seu form:

object Button1: TButton

Left = 32

Top = 24

Width = 97

Height = 25

Caption = 'Modificar Cor'

TabOrder = 0

OnClick = Button1Click

end

object ColorDialog1: TColorDialog

Left = 8

Top = 24

end

 

agora no button coloque o seguinte código:

ColorDialog1.Execute;

Form1.color:=ColorDialog1.Color;

 

Compile e veja o resultado!

 

Créditos:

DarkSj

[JoaoZiicka~ 0]

Valeu mano, testado e aprovado qw' asçkçklsa até mais abraços.

[DarkSj 0]

de nada, código simples, mas ta de pé..

flw

[bidoow 0]

legal dark, é interresante também botar o Font Dialog, se for aplicado a uma label, pois dai de da escolher a fontes, o tamnho e a cor tudo junto! :)

 

FontDialog1.Execute;

Label1.Font:=FontDialog1.Font

[DarkSj 0]

obg. bidoow mas tipo, eu n posso escolher a cor de uma label com o código de form(se foi isso qe eu intendi qe vs disse)mas de qualquer forma, se eu criar outro button...