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;

[LoL]

ich will keine klassen prozedur!

[Christian Seehase]

Moin Christoph,

dann mach's so:

Delphi-Quellcode:

procedure CreateWas(Sender: TObject);
begin
  ShowMessage('HALLO HALLO');
end;

procedure irgendwas;
var meinbutton : TButton;

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

Funktioniert auch.

[LoL]

was bedeutet das @?

[Illuminator-23-5]

@ liefert die Adresse der Variable..., die dahintersteht

[Dagon]

Mit dem @ bildet (referenziert) man die Adresse einer Variablen.