Schriftgröße von Showmessage('') ändern

[xxsasch4xx]

hallo will die schriftgröße irgentwie ändern aber ich weiss nicht wie das geht
will nicht extra eine neue form machen deswegn!
vieleicht kann mir da ja einer helfen

[sirius]

Showmessage ist nicht dafür gemacht einfach mal eben schnell die Schriftgröße zu ändern. Da musst du wohl eine eigene Form erstellen (gibt aber Vorlagen dafür)

[xxsasch4xx]

ok, alles klar!
wär aber schön gewessen wenn man einen paramenter hätte wo man einfach mal die schriftgröße einstellen kann!

[himitsu]

Das wird nicht so einfach, dann dafür müßtest du irgendwie auf den intern verwendeten TTaskMessageDialog zugreifen ... da wäre es einfacher einen eigenen Dialog zu erstellen.

- die Delphi VCL/RTL läßt sich ja schnecht ändern

- und da du so den Dialog auch noch modal anzeigst, hast du eh keine Möglichkeit nachträglich was zu ändern, da das Programm ja solange angehalten wird, wie der Dialog geöffnet ist.

[uligerhardt]

Schau dir mal CreateMessageDialog an. Falls du den Quellcode der VCL hast, kannst du dir auch mal reinziehen, wie ShowMessage implementiert ist.

Das könnte dann so aussehen:

Delphi-Quellcode:

function MyShowMessage(const AMessage: string; AFontSize: Integer): Integer;
var
  dlg: TForm;
begin
  dlg := CreateMessageDialog(AMessage, mtInformation, [mbOK]);
  try
    dlg.Position := poScreenCenter;
    dlg.ScaleBy(AFontSize, dlg.Font.Size);
    Result := dlg.ShowModal;
  finally
    dlg.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyShowMessage('Blah', 48);
end;