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;