Ribbon

[Pfl]

Ich hatte überlegt, die Geschichte mit dem FotnDialog so zu lösen :

procedure TForm1.FontEdit1BeforeExecute(Sender: TObject);
begin
if FontEdit1.Dialog.Execute then
begin
RichEdit1.Font.Assign(FontEdit1.Dialog.Font);
end;
end;

Der FontDialog wird doppelt gezeigt: Er übernimmt beim ersten Mal die Schriftart auf das RichEdit, beim zweiten Mal passiert nichts. Ich habe einen ähnlichen Code beim Speicherdialog versucht:

if FileSaveAs1.Execute then
begin
RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.File Name);
end;
end;

Der SaveDialog wird gezeigt, sichert auch die Datei und lässt sich danach aber nicht mehr beenden; ich musste den Prozess killen... .