Delphi TButton.OnClick 匿名函数用法
发布时间:2020-12-15 09:24:05 所属栏目:大数据 来源:网络整理
导读:type TNotifyEventRef = reference to procedure (Sender: TObject); function AnonymousEvent( const Proc: TNotifyEventRef): TNotifyEvent; type TVtable = array [ 0 .. 3 ] of Pointer; PVtable = ^TVtable; PPVtable = ^PVtable; begin TMethod(Result
type TNotifyEventRef = reference to procedure(Sender: TObject); function AnonymousEvent(const Proc: TNotifyEventRef): TNotifyEvent; type TVtable = array[0..3] of Pointer; PVtable = ^TVtable; PPVtable = ^PVtable; begin TMethod(Result).Code := PPVtable((@Proc)^)^^[3]; TMethod(Result).Data := Pointer((@Proc)^); end; procedure TForm1.FormCreate(Sender: TObject); begin //变态写法 @Button1.OnClick := PPointer(Cardinal(PPointer( procedure(Sender: TObject) begin ShowMessage(‘你好,人民币!‘); end)^) + $0C)^; //正经写法 Button2.OnClick := AnonymousEvent( procedure(Sender: TObject) begin ShowMessage(‘Hello,Money!‘); end); end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |