掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
.InputQueryのポップアップ位置 (ID:35617)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
どうせ"ものぐさ"ならば、コード量も少ない方が… procedure WMApp(var Msg: TMessage); message WM_APP; ..... procedure TForm1.WMApp(var Msg: TMessage); var hW: HWND; R: TRect; x, y: Integer; P: TPoint; begin hW := FindWindow('TForm', nil); if hW = 0 then exit; GetCursorPos(P); x := P.X; // 任意 y := P.Y; // 任意 // はみ出したら位置補正 GetWindowRect(hW, R); if Screen.Width < (x+R.Right-R.Left) then x := (Screen.Width-R.Right+R.Left); if Screen.Height < (y+R.Bottom-R.Top) then y := (Screen.Height-R.Bottom+R.Top); // 位置セット SetWindowPos(hW, 0, x, y, 0, 0, SWP_NOSIZE or SWP_NOZORDER); end; procedure TForm1.Button1Click(Sender: TObject); var DefStr: string; begin PostMessage(Handle, WM_APP, 0, 0); DefStr := 'ほげほげ'; InputQuery('Input Box', '文字入力', DefStr); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.