掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ディスプレイのwidth、heightを取得したいのですが。 (ID：13511)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
無理矢理ですけど、、、 こんなので、、、ニョキニョキと、、、、 --------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin Form2.Top := Screen.WorkAreaHeight; Form2.Left := Screen.Width - Form2.Width; Form2.Show; for i := Form2.Top downto (Form2.Top - Form2.Height) do begin Form2.Top := Form2.Top - 1; Application.ProcessMessages; Sleep(10); end; end; --------------------------------------------------------------------- どうでしょ。。。ニョキニョｋと、、、
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.