掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メッセージボックス表示文字について (ID：28111)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のようなのはどうでしょうか？ これなら環境に依存しないと思いますが。 function f_iYesNoMessageBox(saCap, saText: AnsiString): integer; var MsgDlg: TForm; begin MsgDlg := CreateMessageDialog(saText, mtConfirmation, [mbYes, mbNo]); with MsgDlg do begin try Caption := saCap; TButton(Components[2]).Caption := 'オーケー(&Y)'; TButton(Components[3]).Caption := 'ダメ(&N)'; Result := ShowModal; finally Free; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if f_iYesNoMessageBox('終了確認', '終了ＯＫ？') = mrYes then Close; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.