OnEnter einer Komponente überschreiben

[Helmi]

Hallo,

wie kann ich ein OnEnter-Event einer Komponente überschreiben?

Kurze Erklärung:

Ich erzeuge eine Komponente die als Klasse "TMaskEdit" hat.

So weit, so gut.

Nun möchte ich in meiner erzeugten Komponente auf das OnEnter-Event reagieren und dort noch was machen und dann nach Aussen (also in den Objekt-Inspektor) ein OnEnter-Event rausführen

Code:

  if Assigned(FOnEnter) then
    FOnEnter(Self);

(oh je - das klingt kompliziert :-) )

Nur wie muss ich das realisieren?

mfg
Helmi

[Bernhard Geyer]

Dazu überläds du die DoEnter-Methode deiner Komponente.

Diese ruft unter TWinControl.DoEnter (Controls.pas) das OnEnter-Event auf (falls zugewiesen).

Delphi-Quellcode:

procedure TMyControl.DoEnter;
begin
  ... (Eigener Code)
  inherited DoEnter;
end;