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;