十字型のマウスポインターを表示するには？ (ID:35455)

名前

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

本文

Ｄ７  ですが、Image Editor で  自分の思うようなカーソルを作成し、.resに入れ、Const でカーソルの定義を行い、

const
   crMyCursor_001 = 1;

FormCreate(Sender: TObject);
 begin
  ***
  ***
  LoadScreenCursor(crMyCursor_001,'Cursor_001');
  
  と指定した上で、必要なコンポーネントの

MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  で  Screen.Cursor := 1;  とすれば、いかがでしょうか。

以下は釣りの仕掛け図を描くための一部ですが、
こまごましている釣り部品をデフォルメした計上のカーソルを独自に作成して試用しています。

var
  Form_Main: TForm_Main;

{ カーソルの定義}
  const
   crMyCursor_001  = 1;
   crMyCursor_002  = 2;
   crMyCursor_003  = 3;

implementation

{$R *.dfm}
{$R My_Cursor.res}

procedure LoadScreenCursor(index:Integer;Name:string);
begin
    Screen.Cursors[index] := LoadCursor(HInstance, pChar(Name));
    if Screen.Cursors[index]=0 then
        raise Exception.Create('Can not load the cursor ['+Name+']');
end;

//初期設定
procedure TForm_Main.FormCreate(Sender: TObject);
begin
  LoadScreenCursor(crMyCursor_001,'Cursor_001');
  LoadScreenCursor(crMyCursor_002,'Cursor_002');
  LoadScreenCursor(crMyCursor_003,'Cursor_003');
end;

//表題にマウスが入ったら
procedure TForm_Main.Panel2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  Screen.Cursor := 0;
end;

procedure TForm_Main.Cursor_Select();
begin
  case Btn_Flg of
    0:begin  Screen.Cursor :=  0;  end;
    1:begin  Screen.Cursor :=  1;  end ;    
    2:begin  Screen.Cursor :=  2;  end ;    
    3:begin  Screen.Cursor :=  3;  end ;    
  else
    begin
      Screen.Cursor := 0;
    end;
  end;                                     
end;

趣旨と違っていればごめんなさい。

←解決時は質問者本人がここをチェックしてください。

戻る