摘要: @ 与 ^ 运算符//例1:procedure TForm1.Button1Click(Sender: TObject);varstr: string;p: Pointer;beginp := @str; //变量 str 的地址p := @Form1; //变量 Form1 的地址p := @TF 阅读全文
posted @ 2022-05-19 22:24 朱颂东 阅读(431) 评论(0) 推荐(0) 编辑
摘要: procedure TfraItem.circleImage;var Bmp: TBitmap; Rhandle: HRGN; filename:string;begin Bmp := TBitmap.Create; Bmp.Assign(Image1.Picture.Graphic); Rhand 阅读全文
posted @ 2022-05-19 10:34 朱颂东 阅读(147) 评论(0) 推荐(0) 编辑
摘要: delphi RichView的使用介绍 RichView 组件 由 9 个组件模块组成,分别是: 1、TRVStyle:主要是定义RICHVIEW样式,定义后,其它RIHCVIEW都可以引用此样式。 2、TRichView :主要用于显示文本,图像,等等 3、TRichViewEdit: 主要用于 阅读全文
posted @ 2022-05-19 09:15 朱颂东 阅读(352) 评论(0) 推荐(0) 编辑
摘要: richview 添加表格 procedure TForm1.mitInserttable1Click(Sender: TObject);var table: TRVTableItemInfo; r, c: Integer;begin table := TRVTableItemInfo.CreateEx(4, 3, RichV 阅读全文
posted @ 2022-05-19 09:07 朱颂东 阅读(39) 评论(0) 推荐(0) 编辑