Bitmap - criando um caret (cursor)

Top  Previous  Next

// Para criar uma caret (cursor) de memo, edit personalizado:

//    1. Crie um bitmap monocromatico 16x16 com qualquer desenho

//    2. Digite o codigo baixo:

 

 

//Mostrar o cursor no memo:

 

  CreateCaret(Memo1.Handle, Image1.Picture.Bitmap.Handle, 00);

  ShowCaret(Memo1.Handle);

 

 

// Voltar o cursor padrão

 

  CreateCaret(Edit1.Handle, 0104);

  ShowCaret(Edit1.Handle);