Zwei OnClick-Events in einer Klasse

[cYaONE]

Servus,

Folgendes Problem:

Ich habe eine eigene Klasse von TScrollBox abgeleitet. Jetzt möchte ich, dass ich einer Methode meiner eigenen Klasse das OnClick-Event der TScrollBox zuweisen kann. Allerdings soll später, wenn die Komponente benutzt wird, das zuweisen einer anderen OnClick Funktion ebenfalls möglich sein ...

Könnt ihr mir helfen?

Danke schonmal!

[Phoenix]

:wiejetzt:

Ich würde sagen:

Delphi-Quellcode:

MeineKompo.OnClick := Form1.meinOnClick(Sender: TObject);

Wenn es eine 'meinOnClick' - methode gibt sollte das klappen.

[cYaONE]

Ich weise intern der Komponente eine OnClick Methode zu - und außerhalb will ich das ich so machen - also praktisch 2 Funktionen auf ein Ereignis.

Ich würde das gerne folgendermaßen lösen:

Delphi-Quellcode:

procedure TMeineKomponente.OnClick(Sender: TObject);
begin
  // Zuerst das externe Ereignis aufrufen
  inherited OnClick(Sender);
  
  // ...
end;

Aber das geht ja so nicht :(

[Phoenix]

Andersrum gehts aber.

Du schreibst zuerst das, was intern passieren soll in die reguläre OnClick - Methode.

Dann erzeugst Du eine externe:

Delphi-Quellcode:

procedure TForm1.DeineKompoOnClick(Sender: TObject);
begin
  // .. hier ne Menge Code

  // ..und zuletzt die interne aufrufen:
  inherited;
end;

[maximov]

Ich bin mir sicher, dass onClick aus der dynamischen methode Click aufgerufen wird:

siehe da

Delphi-Quellcode:

TControl = class(TComponent)
...
procedure Click; dynamic;
...

dh. einfach overriden:

Delphi-Quellcode:

type
  TDeineKompoOnClick = class(...)
    ...
    procedure Click; override;
  end;


procedure TDeineKompoOnClick .Click;
begin
  // .. hier ne Menge Code

  inherited; // original aufrufen ... unter anderem auch OnCLick generieren
end;

sollte gehen :)

mfg.