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

[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.