掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カーソル移動に伴う文字表示をするには (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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.