Position von Dialog

[SaFu]

Zu den MessageBoxen gabe

War vom Dani und Funzt sehr gut selbst beim verkleinern der Form (logisch)

Delphi-Quellcode:

function MessageDlgPos2(const Msg: string; DlgType: TMsgDlgType; 
  Buttons: TMsgDlgButtons; ParentForm: TForm = nil; HelpCtx: Longint = -1; 
  const HelpFileName: string = ''): Integer; 
begin 
  with CreateMessageDialog(Msg, DlgType, Buttons) do 
    try 
      HelpContext := HelpCtx; 
      HelpFile := HelpFileName; 
      if Assigned(ParentForm) then begin 
        Position := poDesigned; 
        //0 div 2 -> 0, also kein Problem. 
        Left := ParentForm.Left + ((ParentForm.Width - Width) div 2); 
        Top := ParentForm.Top + ((ParentForm.Height - Height) div 2); 
      end else begin 
        Position := poScreenCenter; 
      end; 
      Result := ShowModal; 
    finally 
      Free; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  MessageDlgPos2('Dies ist ein Test', mtInformation, [mbOK], Self); 
end;