prozedur aufruf

[Christian Seehase]

Moin Christoph,

schau Dir das mal an:

Delphi-Quellcode:

procedure irgendwas;

type TMainPanel = class(TPanel)
  class procedure Createwas(Sender : TObject);
end;

implementation

class procedure TMainPanel.Createwas(Sender : TObject);
begin
  ShowMessage('HALLO');
end;

procedure irgendwas;
var meinbutton : TButton;

begin
  meinbutton := TButton.create(form1);
  meinbutton.parent := form1;
  meinbutton.onclick := TMainPanel.Createwas;
end;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  irgendwas;
end;