hi,
in meinem einstellungsfenster von meinem bildschirmschoner möchte ich so:
procedure TForm2.btnfarbeClick(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
if ColorDialog1.execute then Form1.JsRunningText1.Font.Color := ColorDialog1.Color;
end;
die schriftfarbe von meinem scrolltext ändern!
das einstellungsfenster wird geöffnet, ich kann auch eine andere farbe wählen, jedoch hat dies keine wirkung!
warum?
mein bildschirmschonerprojekt besteht aus zwei formularen: form1 und form2!
gruß
markus
in meinem einstellungsfenster von meinem bildschirmschoner möchte ich so:
procedure TForm2.btnfarbeClick(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
if ColorDialog1.execute then Form1.JsRunningText1.Font.Color := ColorDialog1.Color;
end;
die schriftfarbe von meinem scrolltext ändern!
das einstellungsfenster wird geöffnet, ich kann auch eine andere farbe wählen, jedoch hat dies keine wirkung!
warum?
mein bildschirmschonerprojekt besteht aus zwei formularen: form1 und form2!
gruß
markus
Comment