title image


Smiley Re: dynamisch erzeugtem Button ein onClick zuweisen ???
Hallo Ensa ... villeicht damit irgendwie ...



unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Hello_World(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

procedure ExecuteRoutine(Instance: TObject; Name: string);

end;

var

Form1: TForm1;

type

TExecute = procedure of object;

implementation

{$R *.DFM}

procedure TForm1.ExecuteRoutine(Instance: TObject; Name: string);

var

Routine: TMethod;

Execute: TExecute;

begin

Routine.Data := Pointer(Instance);

Routine.Code := Instance.MethodAddress(Name);

if Routine.Code = nil then Exit;

Execute := TExecute(Routine);

Execute;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ExecuteRoutine(Form1,'Hello_World');

end;



procedure TForm1.Hello_World(Sender: TObject);

begin

ShowMessage('Geht doch !!!!!');

end;



end.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: