delphi中执行字符串表示的方法名

转载 2006年06月05日 12:47:00

转自http://www.delphibbs.com/keylife/iblog_show.asp?xid=13388

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton; //指定一事件
    Button2: TButton;  //没有指定事件,点击button1后用“字符串事件”给它赋click事件
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetMethodByName(AObject:TObject;AName: string);
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('执行成功');
end;

procedure TForm1.SetMethodByName(AObject:TObject;AName: string);
var
  PAddr: pointer;
  M: TMethod;
begin
  PAddr := MethodAddress(AName); //找本窗口中的过程地址
  if PAddr <> nil then
  begin
    M.Code := PAddr;
    TButton(AObject).OnClick := TNotifyEvent(m);//指定click事件
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SetMethodByName(Button2,'Button2Click');
end;

end.

相关文章推荐

从网上整理的一些delphi字符串加密解密方法

function Encode(Str: string): string; var //加密   TmpChr: AnsiChar;   i, Len: integer; begin   R...

初学 Delphi 嵌入汇编[16] - 进制的表示方法

====================================================== 注:本文源代码点此下载 =============================...

避免程式重複執行的方法[delphi]

出處 : http://jck11.pixnet.net/blog/post/8541840-%E9%81%BF%E5%85%8D%E7%A8%8B%E5%BC%8F%E9%87%8D%E8%A4%8...

delphi删除自身执行程序的方法

procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInforma...

delphi 字符串函数

delphi中的字符串操作

delphi中的字符串操作 uses StrUtils; 【字符串函数大全】 首部 function AnsiResemblesText(const AText, AOthe...

DELPHI字符串链表类

delphi 字符串、数组函数

  • 2014-10-16 15:27
  • 34KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)