Zitat von
marabu:
Hallo Peter,
probiere es über das Ereignis OnShow() des Dialogs:
Delphi-Quellcode:
procedure TDemoForm.FontDialogShow(Sender: TObject);
begin
with Sender
as TFontDialog
do
SetWindowText(
Handle, '
So geht es');
end;
Grüße vom marabu
Wunderbar!! Herzlichen Dank und einen schönen Tag noch!