マウスで画像を動かす際のちらつきをなくすには (ID:40444)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 過去ログ等を参考にしてマウスクリックした時にマウス下にある画像を以下のような方法で動かしています 動かすことには成功したのですが、どうしても動かしている最中に画像がちらついてしまって困っています ちらつくと言うよりは、横に縞が入ってしまって後ろにあるフォームの色が見えてしまっている感じです private { Private 宣言 } Orgpoint : Tpoint; Drawing : Boolean; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Drawing := true; Orgpoint := point(x,y); end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Var P : TPoint; begin If Drawing then begin P := Image1.Parent.ScreenToClient(Image1.ClientToScreen(Point(X, Y))); Image1.Left := P.X - Orgpoint.x; Image1.Top := P.Y - Orgpoint.y; end; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Drawing := False; end; 環境はDelphi7 Professional WindowsXp Home SP3 です。 スパイダソリティアが大好きで、トランプのマークや使用する組数を色々カスタマイズできるものを作りたいと思っています ですが、最初のテスト段階でつまづいてしまい、困ってます。 どうぞよろしくお願い致します