TFont ohne Create und Free.

[Mathias]

Darf man das so machen, oder muss da noch eine Create oder Free rein ?

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  fnt: TFont;
begin
  fnt := Font;
  if FontDialog1.Execute then begin
    fnt := FontDialog1.Font;
  end;
  Label1.Font := fnt;
end; 

[Warf]

Label.SetFont (welches von der Font property ausgeführt wird) benutzt Assign, also macht ne deep-copy vom font. Also absolut kein problem

[Mathias]

Code: Alles auswählen

 fnt := FontDialog1.Font;

Dies auch nicht ?