Wegen TFontDialog das TFont Objekt Klonen

[gibb]

Zitat von DeddyH:

Hast Du evtl. zu wenig Assigned?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FD.Font.Assign(Font1);
  if FD.Execute then
    Font1.Assign(FD.Font);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FD.Font.Assign(Font2);
  if FD.Execute then
    Font2.Assign(FD.Font);
end;

Geht bei mir einwandfrei.

Ich danke dir du bist mein Held... so geht es... komisch ist aber immernoch das es der eine weg ging der andere nicht...

aber mal noch ne Frage... wieso ist das 2 te assign notwendig ? der FD sollte ja schon eine Eigene Kopie haben und sollte daher auch nicht mehr überschrieben werden...