// 不同风格的光标 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); ;
两种方式:delphi无代码实现拖动窗体与有代码实现拖动窗体
Delphi XE5教程1:语言概述
Delphi XE5教程1:语言概述
Delphi XE5教程1:语言概述
Delphi XE5教程1:语言概述
Delphi XE5教程1:语言概述
Delphi XE5教程1:语言概述
Delphi XE5教程1:语言概述
Delphi XE5教程1:语言概述