prozedur aufruf

[LoL]

hi

ich möchte ein prozedur über einen button ufrufen der zur laufzeit erstellt worden ist:

Delphi-Quellcode:

...
procedure button;
proceudre test(Sender : TObject);
...
var meinbuton : TButton;
...
procedure button;
begin
  meinbutton := TButton.create(form1);
  meinbutton.parent := form1;
  meinbutton.onclick := test; <---------------------
end;

procedure test(Sender : TObject);
begin
  machwas;
end;

Warum gehtdas nicht?

[Chewie]

Es heipt OnClick und nicht OnKlick.

[LoL]

schrib fehler sry

[Dagon]

Es muss heissen:

Delphi-Quellcode:

procedure TForm1.test(Sender : TObject);

[Luckie]

Suche benutzen, das hatten wir schon zu genüge.

[LoL]

die prozedur steht in ner anderen unit!
keinem typ zugeornet

[Luckie]

Delphi-Quellcode:

@button.onclick := @Unit2.MyProc;

Die prozedur muß natürlcih im Sichtbarkeitsbereich liegen.

[LoL]

es kommt immer nur die fehlermeldung:

Zitat:

Incompatible types: 'method pointer and regular procedure'

[Dagon]

Wenn du die Prozedur Test im Public-abschnitt von TForm1 deklariesrt, dann gehts!

[LoL]

Delphi-Quellcode:

unit 2
...
procedure irgendwas;
...
type TMainPanel = class(TPanel)
  procedure Createwas(Sender : TObject);
end;
...
procedure TMainPanel.Createwas(Sender : TObject);
begin
  machwas
end;

procedure irgendwas;
var meinbutton : TButton;
begin
  meinbutton := TButton.create(form1);
  meinbutton.parent := form1;
  meinbutton.onclick := Createwas;
end;

geht aber nicht