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

解決

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

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

編集 削除
たかみちえ  URL  2003-11-08 16:24:29  No: 5618  IP: 192.*.*.*

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

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

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

編集 削除
masayan  2003-11-10 09: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-10 15:21:31  No: 5620  IP: 192.*.*.*

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

編集 削除