カーソル移動に伴う文字表示をするには (ID:25912)

名前

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

本文 TImageの上に座標を表示ばなんかしとうもんやけん... var LabelXY: TLabel; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var P: TPoint; begin if not Assigned(LabelXY) then exit; P := Form1.ScreenToClient(Image1.ClientToScreen(Point(X,Y))); LabelXY.Left := P.X + 10; LabelXY.Top := P.Y; LabelXY.Caption := Format('%d：%d',[X,Y]); end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin LabelXY := TLabel.Create(Self); LabelXY.Parent := Self; LabelXY.Transparent := True; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin LabelXY.Free; LabelXY := nil; end;