MessagBox in anderer Schriftart

[Kedariodakon]

Zitat von Sharky:

Hai n0b0dy,

wie rufst Du das denn auf? Wenn ich es so mache kann ich den Font angeben:

Delphi-Quellcode:

procedure TForm1.btn_ShowDialogClick(Sender: TObject);
var
  myDialog : TForm;
begin
  myDialog := CreateMessageDialog('blubb',mtInformation,[mbYes,mbNo]);
  try
    myDialog.Font.Name := 'Script';
    myDialog.ShowModal;
  finally
    myDialog.Free;
  end;
end;

Änderst so ja genau die stelle, welche ich markiert hatte


Noch ein Tip:
Im grunde mußt du den Font vor

Delphi-Quellcode:

//...

          Windows.DrawText( canvas.handle,
            PChar(LoadResString(ButtonCaptions[B])), -1,
            TextRect, DT_CALCRECT or DT_LEFT or DT_SINGLELINE or
            DrawTextBiDiModeFlagsReadingOnly);

//...

ändern, da der da ja schon gezeichnet wird, Informationen die er braucht sind ja im Canvas, sprich Font & Co, also oben mal schaun was ich geschrieben hatte und beachten, was Sharky gemacht hatte, dann liegt die lösung auf der Hand!

Die Lösung ist ganz ganz einfach

Bye