名前 題名 ▼ Nullさん > ▼ 鈴木商店さん > > > 2)また 左ボタンをクリックした場合のカーソルの表示切替 > > 3)また 右ボタンをクリックした場合のカーソルの表示切替 > > 5)また ホイールボタンを押した場合のカーソルの表示切替 > > > procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; > Shift: TShiftState; X, Y: Integer); > begin > if Button = mbRight then > Label1.Caption := '右'; > > if Button = mbLeft then > Label1.Caption := '左'; > > if Button = mbMiddle then > Label1.Caption := '中'; > end; > > Delphi7 の「OnMouseDown」のヘルプを参考にして書きました。 > 私の能力では此処までが限界です。 > > Delphi(Free P6)は使った経験が無いので解りませんが、多分ヘルプ > も付属していると思います。 是非参考にして下さい。 > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link