Problem mit ColorDialog und Farbe übernehmen.

DiamondDog · Beiträge: 460

Hallo Leute,
ich hab das das Problem das meine Farbe, leider immer erst nach dem 2ten aufrufen von ColorDialog übernommen wird und ich weiß nciht ganz wie ich das beheben kann. Möchte es gerne so haben das wenn ich eine Frabe gewählt habe und auf OK klicke das dann die Farbe sofort übernommen wird, beim schließen vom ColorDialog.
So sieht mein Quelltext dafür aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.ColorDialog1Close(Sender: TObject);
begin
  Label1.Color:= ColorDialog1.Color;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ColorDialog1.Execute;
end;

Danke schon mal für eure Hilfe.

Mfg Dog

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  Label1.Color:= ColorDialog1.Color;
end;

Nersgatt · Verfasst: Mo 23.03.09 14:34

Mach es doch so:

markieren

Delphi-Quelltext

1:
2:

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

Dann brauchst Du den Umweg über das Close-Ereignis nicht zu gehen.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

DiamondDog · Beiträge: 460

Cool funktioniert besten Dank.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme