マウスにフォームがついていくようにするには？

解決

さかもと 2003-11-08 21:22:30 No: 5617

フォームがマウスカーソルについてくるようにしたいんですが、どうすればいいかわかりません。どなたか教えて下さい。

たかみちえ URL 2003-11-09 01:24:29 No: 5618

タイトルバーをドラッグしたような状態にしたいということですか？

それならば、おんぷむらのうらにある"TSizeBox"なんかが使えそうですけど。

(今見てみたらコンポーネントの名前かいてませんでした^^;
"グラフィックコントロール"の一番上、"非クライアント領域のふりをするコントロール"です。)
http://TakamiChie.at.infoseek.co.jp/＞おんぷ村倉庫＞Delphiコンポーネント

masayan 2003-11-10 18:43:16 No: 5619

TTimerを用意してOnTimerイベントで...

procedure TForm1.Timer1Timer(Sender: TObject);
var
P : TPoint;
begin
P := Mouse.CursorPos;

Top := P.Y;
Left := P.X;
end;

とすればマウスに合わせてフォームが動きます。
※.TTimerのIntervalは適当に指定してください。

さかもと 2003-11-11 00:21:31 No: 5620

ありがとうございます。解決しました。