この発言は
#00580　紅月　燐火      さんのウインドウ中央表示ダイアログ
に対するコメントです

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

#00586　紅月　燐火      さん　RE^2:ウインドウ中央表示ダイアログ




#580 紅月　燐火 さん こんにちは らせん企画の佐々木です



  単純に 引数 Form の値を使用してはいかがでしょうか。

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

             98/6/21(Sun) 06:06am  BYQ05322 らせん企画の佐々木

Original document by らせん企画      氏 ID:(BYQ05322)

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