掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
InputBoxを手前に表示 (ID:17298)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ダンナ： 「おぃおぃ、そこのデシャバリ」 八兵衛： 「ん？あっしのことですかい？ダンナ」 ダンナ： 「そや、あんさんの他にはダレもおらんで」 八兵衛： 「ナンかご用ですかい、ダンナ」 ダンナ： 「ジャマや、ハヨゥひっこんでや」 八兵衛： 「そう言われも、ナニかがあっしのアシをおさえてるんで...」 ダンナ： 「つまらんダジャレ言うの、だじゃれ？」 private procedure WMSpecial(var Msg: TMessage); Message WM_APP; procedure TForm1.Button1Click(Sender: TObject); begin PostMessage(Handle, WM_APP, 0, 0); InputBox('教えてぇな','あんさんの名前','奈々氏'); end; procedure TForm1.WMSpecial(var Msg: TMessage); var aDlg: TForm; begin aDlg := nil; for i:=0 to Screen.FormCount-1 do begin if (Screen.Forms[i].ClassName = 'TForm')and (Screen.Forms[i].Caption = '教えてぇな') then aDlg := Screen.Forms[i]; end; if Assigned(aDlg) then SetWindowPos(aDlg.Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOSIZE or SWP_NOMOVE); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.