TControlCursor (C++)

Description

This example shows how to add custom cursors to an application. The following code makes this cursor available to the application through the crMyCursor constant and sets it as the global cursor to the application.

Code

#include <memory>       //For STL auto_ptr class

const crMyCursor = 5;

  void __fastcall TForm1::Button2Click(TObject *Sender)
{
  std::auto_ptr<Graphics::TBitmap> bmpMask(new Graphics::TBitmap);
  std::auto_ptr<Graphics::TBitmap> bmpColor(new Graphics::TBitmap);
  std::auto_ptr<TIconInfo> iconInfo(new TIconInfo);

  bmpMask->LoadFromFile("../SquareMask.bmp");
  bmpColor->LoadFromFile("../Square.bmp");

  iconInfo->fIcon = false;
  iconInfo->xHotspot = 15;
  iconInfo->yHotspot = 15;
  iconInfo->hbmMask = bmpMask->Handle;
  iconInfo->hbmColor = bmpColor->Handle;

  Screen->Cursors[crMyCursor] = CreateIconIndirect(iconInfo.get());

  Screen->Cursor = crMyCursor;
}

Uses

• Vcl.Controls.TControl.Cursor ( fr | de | ja )
• Vcl.Forms.TScreen.Cursors ( fr | de | ja )
• Vcl.Forms.TScreen.Cursor ( fr | de | ja )