Hallo,

ist es möglich eine Methode zu finden? Ich habe den Namen der Methode aus einer Datei. Und diese Methode möchte ich einen Button zuweisen.

Name aus Datei: ShowFiles

Methode: procedure TPrgFiles.ShowFiles(Sender: TObject);

MFG Christian18

Hi,

Das dürfte so funktionieren:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Sieben(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x: TMethod;
begin
  x.Data := Button1; // Der zukünftige Besitzer der Methode
  x.Code := TForm1.MethodAddress('Sieben'); // Pointer zur Methode selbst
  Button1.OnClick := TNotifyEvent(x);
end;

procedure TForm1.Sieben(Sender: TObject);
begin
  ShowMessage('Sieben!');
end;

end.

EDIT: Alles neu gemacht

Gruß
Neutral General

Hallo,

kann man irgendwie auch die Methode direkt aufrufen?

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x: TMethod;
begin
  x.Data := Button1; // Der zukünftige Besitzer der Methode
  x.Code := TForm1.MethodAddress('Sieben'); // Pointer zur Methode selbst

  TNotifyEvent(x); // gefundene Methode direkt hier ausführen ???? geht das?!?!? (so funktioniert es leider nicht)
end;

MFG Christian18

Hallo,

ich habe es gerade selber herrausgefunden.

Ich habe es so gemacht:

markieren

Delphi-Quellcode:

procedure TForm1.Neu(Sender: TObject); // Diese Methode soll gefunden werden.
begin
  ShowMessage('Neu');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TProcedure(Form1.MethodAddress('Neu')); // Methode finden und ausführen
end;

MFG Christian18

Böse! So kannst du in der Methode weder auf Sender noch auf Self und damit auch nicht auf Felder der Instanz zugreifen.

Hallo,

wie kann man es denn besser machen?

MFG Christian18

Hi,

versuchs mal so:

markieren

Delphi-Quellcode:

TDeineMethode = procedure (lala: Integer) of object;

var x: TMethod;
    y: TDeineMethode;
begin
  x.Data := Button1;
  x.Code := TForm1.MethodAddress('Sieben');
  y := TDeineMethode(x);
  y(5);
end;

Ok, danke funktioniert.

Ich bins nochmal.

Meinst du so?

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit3, Unit2;

type
  TMeine = procedure (Sender: TObject) of object;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Frame21: TFrame2;
    Frame31: TFrame3;
    procedure Button1Click(Sender: TObject);
    procedure Sieben(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Sieben(Sender: TObject);
begin
  Frame21.Visible:=False;
  Frame31.Visible:=False;
end;

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

  y(Sender);
end;

end.

So funktioniert es doch nicht so wirklich.

x.Data=TForm1 wel es ja procedure TForm1.Sieben heißt.