[delphi] colordialog banalna sprawa

Mam coś takiego
form2.ColorDialog1.Execute;
form2.label1.Font.Color:=colordialog1.Color;
i nie dziala a powinno.
potem zapisuje to do pliku ini

plik:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'ustaw.wal');
plik.WriteInteger('start','kolor',label1.font.color);
i zapisuje czarny kolor

Wszystko znajduje się na TabbedNotebook

Pozdrowienia [cya]
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:D

&gtform2.ColorDialog1.Execute;
&gtform2.label1.Font.Color:=colordialog1.Color;

if form2.cordialog1.execute then
form2.label1.Font.Color:=colordialog1.Color;

darek963 napisał:

&gt&gtform2.ColorDialog1.Execute;
&gt&gtform2.label1.Font.Color:=colordialog1.Color;
&gt
&gt
&gtif form2.cordialog1.execute then
&gt form2.label1.Font.Color:=colordialog1.Color;

Przykro mi ale to też nie działa próbowałe już tego wcześniej--Pozdrowienia [cya]
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:D

Nie moge sprawdzic, bo jestem w cafe, ale musi dzialac.

Waldi napisał:
darek963 napisał:
&gt
&gt&gt&gtform2.ColorDialog1.Execute;
&gt&gt&gtform2.label1.Font.Color:=colordialog1.Color;
&gt&gt
&gt&gt
&gt&gtif form2.cordialog1.execute then
&gt&gt form2.label1.Font.Color:=colordialog1.Color;
&gt
&gtPrzykro mi ale to też nie działa próbowałe już tego wcześniej
&gt

Dobra już działa miałem w pliku dpr podwójne tworzenie formy 2
Application.Initialize;
if (ParamCount &gt 0) and (ParamStr(1) = 'configure') then
begin
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2); tu był błąd nie wiem skąd

end
else
begin
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
end;
Application.Run;

&gt--
&gtPozdrowienia [cya]
&gt Waldi Koronowo
&gt [email protected]
&gtZdarza sie że pisze e przed i nie zwracajcie uwagi na to:D--Pozdrowienia [cya]
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:D

// Application.CreateForm(TForm2, Form2); tu był błąd nie wiem skąd

Może Delphi sobie dodał :) Serio :)--Vogel [Delphi 6 PE]

Life is just a dream, you know...
[Cowboy Bebop]