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

解決

さかもと 2003-11-08 21:22:30 No: 5617 IP: [192.*.*.*]

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

編集削除

たかみちえ URL 2003-11-09 01:24:29 No: 5618 IP: [192.*.*.*]

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

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

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

編集削除

masayan 2003-11-10 18:43:16 No: 5619 IP: [192.*.*.*]

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 IP: [192.*.*.*]

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

編集削除