MessageDlg og Exceptions

Ved ikke hvorfor din MessageDlg ser sådan ud men hvis jeg kører samme kode på min Delphi 7 så er der ingen problemer.

Her er en løsning på MessageDlg midt på skærmen, den måde jeg laver det på er at putte koden ind i en "grund form" som alle mine andre forme så arver fra.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
    mbMessage = WM_USER+10;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
        p_msgCaption: PChar;
    procedure ChangeMessageBoxPosition(var Msg: TMessage); message mbMessage;
  public
    { Public declarations }
    function MyMessageBox(Text, Caption: String; Flags: Longint = MB_OK): Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.MyMessageBox(Text, Caption: String; Flags: Longint = MB_OK): Integer;
begin
    PostMessage(Handle, mbMessage, 0, 0);
  p_msgCaption:=PChar(Caption);
  result:=Application.MessageBox(PChar(Text), p_msgCaption, Flags);
end;

procedure TForm1.ChangeMessageBoxPosition(var Msg: TMessage);
var
  MbHwnd: longword;
  MbRect: TRect;
  x, y, w, h: integer;
    Point : TPoint;
begin
  MbHwnd:=FindWindow(MAKEINTRESOURCE(WC_DIALOG), p_msgCaption);
  if (MbHwnd<>0) then
  begin
        Point.X:=0;Point.Y:=0;
        Point:=ClientToScreen(Point);

    GetWindowRect(MBHWnd, MBRect);
        w:=MbRect.Right-MbRect.Left;
    h:=MbRect.Bottom-MbRect.Top;

    // center horzontal
    x:=Point.X+((Width-w) div 2);
    // keep on screen
    if x<0 then
      x:=0
    else
    if x+w>Screen.Width then
        x:=Screen.Width-w;

    //center vertical
    y:=Point.Y+((Height-h) div 2);
    // keep on screen
    if y<0 then
        y:=0
    else
    if y+h>Screen.Height then
        y:=Screen.Height-h;
    // set new windows position
    SetWindowPos(MBHWnd, 0, x, y, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOZORDER);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    MyMessageBox('Dette er en test','Test',MB_ICONASTERISK or MB_YESNO);
end;

end.

>kroning
Tak, giv et svar ... undskyld forsinkelsen.
Det med 'den store' MessageDlg skyldes en uoverensstemmelse mellem en (ansi)strengs #0 og dens længdebyte ... nedenstående løser problemet:

function TrimErrorString(Str : string) : string;
var
  P : integer;
begin
  P:= Pos(#0, Str);
  if P <> 0 then
    Result:= Copy(Str, 1, P - 1)
  else
    Result:= Str;
end;

ok

>kroning
Mon du ser hvis jeg fortsætter på denne tråd!? Jeg har forsøgt at ændre din kode så den bruger en MessageDlg istedet ... tror du dette er muligt? Mit problem er at FindWindow ikke 'finder den'!
Min problem med ovenstående er at [X] SC_CLOSE er disablet med din/ovenstående kode og denne linje hjælper mig ikke: EnableMenuItem(MbHwnd, SC_CLOSE, MF_ENABLED);

Hvis du bruger MessageDlg i stedet for MessageBox så er teksten i caption og på knapperne på engelsk, men det er måske ikke et problem?
Mht. en løsning med MessageDlg så kan jeg ikke få kikket på det før i morgen (måske), er lige på vej ud af døren.

Tusinde tak!
Jeg har tilladt mig at lave et nyt spørgsmål herom: http://www.eksperten.dk/spm/715786, men så er der jo også lidt point! (-;
Jeg har deri angivet 3 (lidt forskellige) spørgsmål, det er meget muliget et af svarene gør de andre spørgsmål irrelevante.
Nej jeg tror ikke det er pga. sprog ... jeg bruger min egen 'danske' consts.pas.
Tak for eventuel hjælp.
Jeg får ikke tjekket eventuelle kommentarer/svar efter kl. 15 før søndag eller mandag |-: