---

Ｑ：ImageMouseDownイベントでマウスカーソルを変更するには
Ａ：通常このイベントでマウスカーソルを変更(Image1->Cursor = crCross;)してもカーソルは変更されません。
ここでWinAPIのSetCursorを使用してマウスカーソルを変更します。

Ｄｅｌｐｈｉ	Ｃ＋＋Ｂｕｉｌｄｅｒ
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin 　　Image1.Cursor := crSQLWait; 　　SetCursor(Screen.Cursors[crSQLWait]); end;	void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { 　　Image1->Cursor = crHelp; 　　::SetCursor(Screen->Cursors[crHelp]); }

このように非常に簡単にカーソルを変更できる様になります。一度チャレンジして下さい。

---

戻る