この発言に対し以下のコメントが寄せられています

#00583　らせん企画      さん　RE:ウインドウ中央表示ダイアログ





{呼び出したウインドウの中央に表示されるMessageDlgです。
Mes11#4337：本田勝彦さんのサンプルをMDI子ウインドウでも使える様に改造し
たものです。
GetWindowRectが失敗した時のことは考えてませんので、各自で実装してくださ
い(ﾟ゜)☆＼(^^;)
変な所がありましたら添削お願いします。}

function CenterDlg(Form:TForm; AMessage, TitleCaption:
  String; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TModalResult;
var
 ARect : TRect;
begin
  GetWindowRect(Form.Handle,ARect);
  with CreateMessageDialog(AMessage, DlgType, Buttons) do begin
   try
    Top := ARect.Top + ( ARect.Bottom - ARect.Top  - Height) div 2;
    Left := ARect.Left + (ARect.Right - Arect.Left - Width) div 2;
    Caption := TitleCaption;
    Result := ShowModal;
   finally
    Free;
   end;// from try..finally...
  end;// from with...
end;

{本田勝彦さんありがとうございました。m(__)m}
                                 　　　　　　　紅月　燐火(BZF05041)

Original document by 紅月　燐火      氏 ID:(BZF05041)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。