Kann es sein das Du sowas suchst?
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin
if ColorDialog1.Execute then
Panel1.Color := ColorDialog1.Color;
if ColorDialog2.Execute then
Panel2.Color := ColorDialog2.Color;
end;
Du hattest ja
Panel1.Color := ColorDialog1.Color;
Und somit ist die Standardfarbe Grua in dem Dialog, da Du den nie ausgeführt hast, bekommst Du auch nie andere Farben.
Die Kästen macht man mit [ delphi][/delphi] und nicht [ code][/code], oder Du drückst den Button Delphi-Source, dann werden sie automatisch geschrieben.
Grüsse, Daniel
