fave til formen

Smid en knap og en ColorDialog på din form og skriv nedenstående kode i din knaps OnClick event:

if ColorDialog1.Execute then
  Form1.Color := ColorDialog1.Color;

Snowball

Hvis det er den nye ColorBox i Delphi 6 du ønsker at bruge, så sætter du den på din form, dblklikker på dens event OnChange og tilføjer denne linie:

  Form1.Color := ColorBox1.Selected;

Din kode skal så se ud som vist her:

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
  Form1.Color := ColorBox1.Selected;
end;

end.

Så har man bare ikke ret mange farver at vælge imellem hvis man briger den Color dims der ligger under Samples fanebladet ;)

Med en ColorDialog kan man jo vælge li\'så mange farver som ens PC kan vise :)

Snowball