Fontdialog bei Editfelder ??

[Sharky]

Fast so wie Matze es geschrieben hat.

Du brauchst auf deiner Form einen FontDialog (Registerkarte "Dialoge"). Und dann:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 if  FontDialog1.Execute then
  begin
   Edit1.Font := FontDialog1.Font;
  end;
end;