Zur laufzeit erstellter Komp Ereignis zuweisen klappt nicht

[Nalincah]

ListBoxTable.OnClick := TableOpen;

Delphi-Quellcode:

procedure TableOpen(TabelleName:String);
begin
  // Irgendwas
end;

Wenn ich compilieren will sagt der:

Code:

[Fehler] uOpenDataBase.pas(73): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

Der Code befindet sich in einer Unit ohne Formular

[Tpercon]

Die Deklaration muß genau so aussehen, wie die eigentlichen OnClick Ereignisse.
Also anstatt procedure TableOpen(TabelleName:String); wahrscheinlich procedure TableOpen(Sender: Tobject);

[Christian Seehase]

Moin Sebastian,

die Fehlermeldung sagt es ja eigentlich schon:

OnClick muss eine Methode übergeben werden (Typ TNotifyEvent, dass steht allerdings nicht in der Meldung)

So müsste die Deklaration aussehen, wenn man sie einem OnClick zuweisen will.
(TForm1 ist nur ein Beispiel, wichtig ist, dass es sich um eine Methode und nicht um eine Prozedur handelt)

Delphi-Quellcode:

procedure TForm1.TableOpen(Sender: TObject);
begin
  // Irgendwas
end;

Nahezu genau diese Frage hatten wir übrigens schon einmal vor ein paar Tagen.

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure MyButtonClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyButtonClick(Sender: TObject);
begin
  ShowMessage('Hello world');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  MyButton : TButton;
begin
  MyButton := TButton.Create(self);
  MyButton.Parent := Form1;
  MyButton.Caption := 'MyButton';
  MyButton.OnClick := MyButtonClick;
end;

[Nalincah]

Nein. Gleicher Fehler:

In nem anderem Programm funktioniert es so:

DBGrid1.OnCellClick := self.dbgridmemo;

Delphi-Quellcode:

procedure TForm1.dbgridmemo(Column: TColumn);
begin
  Form2.DBMemo1.DataSource := column.grid.DataSource;
  Form2.DBMemo1.DataField := Column.FieldName;
end;

Das ist aber ne Unit mit Form
Wenn ich bei meinem Problemprogramm aber "self" einfüge sagt der:
"Unbekannter Bezeichner"

[Garby]

Das liegt daran, dass das OnClick Ereignis vom Typ TNotifyEvent ist.

Dieser Typ ist wie folgt deklariert:Type TNotifyEvent = procedure(Sender: TObject) of object; Also musst du auch eine Procedure dieses Typs zuweisen.

[Christian Seehase]

Moin Sebastian,

Zitat von General2003:

Wenn ich bei meinem Problemprogramm aber "self" einfüge sagt der:
"Unbekannter Bezeichner"

mit Recht, denn self ist ein nicht sichtbarer Parameter eine Methode.

[Nalincah]

Sorry, danke zwar für die Hilfe, aber ich komm nicht weiter
Ich stell einfach mal den Source zur verfügung. Wäre nett wenn mir einer helfen könnte
Die problematische Procedure lässt sich aufrufen in dem man oben auf "Datei/Datenbank öffnen/Aus Datei..." klickt und ne *.mdb (Access) Datei öffnet

[Edit]
Die Prozedure ganz unten in uOpenDataBase

Delphi-Quellcode:

procedure TableOpen(Sender:TObject);
begin

end;

müsste eigentlich so aussehen

Delphi-Quellcode:

procedure TableOpen(TabelleName:String);
begin

end;

[/Edit]

[Christian Seehase]

Moin Sebastian,

schau Dir doch bitte mal mein erstes Posting in diesem Thread an.
Da müsste Dir ein Unterschied zu dem auffallen, was Du gemacht hast.

[Nalincah]

Delphi-Quellcode:

procedure TableOpen(Sender: TObject);
begin
  sleep(330);
end;

Wenn ich das so mache klappt das nicht

Delphi-Quellcode:

procedure TFrmMain.TableOpen(Sender: TObject);
begin
  sleep(330);
end;

Und so auch nicht