TButton zur Laufzeit onClickk := MeineProzedur('test'); => Fehler

[DelphiPeter]

Hallo Kollegen

ich möchte zur Laufzeit Buttons erstellen,
hierbei möchte ich auch Events angeben.

Das Event zeigt immer auf eine Prozedur, die immer einen anderen Parameter hat.

Also So:

Delphi-Quellcode:

procedure MeineProzedur(msg: string);
begin
   ShowMessage(msg);
end;

{...}
TButton(Compo).onClick := MeineProzedur('test');
{...}

Das führt beim bauen zu folgendem Fehler:

Zitat:

[DCC Fehler] ufmMain.pas(158): E2010 Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Kann mir nun irgendwer erklären, welche grundlegende Regel ich damit verletze?

Danke euch,

Gruß,
Peter

[DeddyH]

Wenn Du eine Methode zuweisen willst, muss diese eine kompatible Signatur aufweisen, d.h. dieselben Parameter vom selben Typ in derselben Reihenfolge.

[nuclearping]

OnClick ist immer eine TNotifyEvent Prozedur "of object", also immer procedure TIrgendeineKlasse.XYZClick(Sender: TObject) und keine anderen Parameter.

Wenn du wissen willst, welcher Button geklickt wurde, kannst du das entweder über "Sender as TButton" oder Button.Tag auswerten.

[Luckie]

Das geht so nicht. Erstelle in der IDE mal eine Schaltfläche und mache einen Doppelklick drauf, dann erstellt dir die IDE die Ereignisprozedur. Und so muss auch deine aussehen.

[DelphiPeter]

OK, sehe ich ein, danke ... das hätte ich auch selbst sehen können. Ergibt sich nur die Frage, wie ich meinen Parameter übergebe, an das Event..

[nuclearping]

Zitat von DelphiPeter:

OK, sehe ich ein, danke ... das hätte ich auch selbst sehen können. Ergibt sich nur die Frage, wie ich meinen Parameter übergebe, an das Event..

Wie schon gesagt, entweder du wertest den Sender aus oder die Tag Eigenschaft des Buttons.

Delphi-Quellcode:

procedure TForm1.DeinOnClickEvent(Sender: TObject);
var
  Button: TButton;
begin
  if not (Sender is TButton) then
    Exit;

  Button := Sender as TButton;

  // Möglichkeit 1
  if Button.Name = ... then

  // Möglichkeit 2
  if Button.Caption = ... then
  
  // Möglichkeit 3
  if Button.Tag = ... then
  
  // etc.
end;

[DeddyH]

Den as-Vergleich braucht man nicht mehr, wenn man vorher mit is geprüft hat . Außerdem könnte man auch noch als 4. Möglichkeit die Instanz selbst abfragen. In dem Fall kann sogar die komplette Vorprüfung entfallen.

Delphi-Quellcode:

if not (Sender is TButton) then
    Exit;

  Button := TButton(Sender);
  if Button = ButtonWuppdi then

  //oder gleich
  if Sender = ButtonWuppdi then

[Stevie]

Du könntest auch dem Event eine anonyme Methode zuweisen.

[markus5766h]

vielleicht hilft auch das :
http://www.delphipraxis.net/147151-c...tml#post994930