游子日月长

笑渐不闻声渐悄,多情却被无情恼!

导航

2017年1月11日 #

DELPHI WM_CopyData 用法

摘要: unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls; type TForm1 = class(T 阅读全文

posted @ 2017-01-11 11:51 游子日月长 阅读(661) 评论(0) 推荐(0)

delphi 中判断对象是否具备某一属性

摘要: Uses TypInfo; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin for I := 0 to ComponentCount - 1 do if IsPublishedProp( 阅读全文

posted @ 2017-01-11 11:43 游子日月长 阅读(341) 评论(0) 推荐(0)