掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
messageDlgについて (ID：6239)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Button1Click(Sender: TObject); begin with CreateMessageDialog('これでエエんかいな？', mtConfirmation, [mbYes, mbNo]) do begin OnShow := MyDlgShow; if ShowModal = mrNo then begin // NOならナンもせんがな end; Release; end; end; procedure TForm1.MyDlgShow(Sender: TObject); begin SendMessage(FindWindowEx(TForm(Sender).Handle, 0, 'TButton', 'いいえ(&N)'), WM_SETFOCUS, 0, 0); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.