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

[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;