Suchen einer Methode

[_frank_]

bei mir funktioniert es so:

Delphi-Quellcode:

type
  TMeine = procedure (Sender: TObject) of object;
...
procedure TForm1.Sieben(Sender: TObject);
begin
  Panel1.Visible:=False;
  Panel2.Visible:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var x: TMethod;
      y: TMeine;
begin
  x.Data:=Form1;
  x.Code:=TForm1.MethodAddress('Sieben');
  y:=TMeine(x);

  y(Sender);
end;

Gruß Frank