动态提醒

下一节课程: T1配置概述 (33364次播放)

5秒后自动播放下一节
  重新观看
章节
 
 

复制代码

//   不同风格的光标
   TForm1.Edit1MouseDown(Sender:   TObject;   Button:   TMouseButton;
    Shift:   TShiftState;   X,   Y:   Integer);

        CreateCaret(Edit1.Handle,   ,   ,   );
        ShowCaret(Edit1.Handle);
;
//   用图像做光标
   TForm1.Memo1MouseDown(Sender:   TObject;   Button:   TMouseButton;
    Shift:   TShiftState;   X,   Y:   Integer);

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