ShowMessag - Titelzeile ändern

[eddy]

Hallo Leute,

na klar doch!

Hier noch der Vollständigkeit halber die von mir verwendete Lösung:

Code:

  
  ....
  if (Screen.Width <= 1024) or (Screen.Height < 768) then begin
    s := IntToStr(Screen.Width)+cblk+'*'+cblk+IntToStr(Screen.Height);
    tx := 'Aktuelle Auflösung): '+s;
    s := 'Das Programm ist für eine Auflösung von 1024 * 768 ausgelegt.' +crlf  // = $0A$0D
         + 'Bitte ändern Sie Ihre Einstellungen.';
    Application.MessageBox(PChar(s), PChar(tx), 48+0);
  end;
  ....

mfg
eddy