(gelöst) Vererbung

[VkPenguin]

Guten Tag zusammen,

ich bin bei den arbeiten an meinem aktuellen Programm auf ein Problem getroffen, das mir Kopfzerbrechen bereitet. Ich möchte die Klasse TCheckbox so erweitern, dass sie weitere Befehle ausführt, wenn der Status von TcheckBox.Checked geändert wird. Das Problem: Wenn ich das richtig sehe, lautet die passende Procedur "Toggle" und stammt von "TCustomCheckbox" ab. Nur wie kann ich angeben, dass ich diese Methode erweitern möchte und nicht eine von TCheckbox eingeführte?

Entschuldigt bitte, falls ich da etwas falsch verstanden habe, aber ich bin noch relativ unerfahren mit dem Thema Vererbung. Ich habe mir mal das durchgelesen, aber um gezielt nach diesem Problem suchen zu können müsste ich den Namen kennen. Ich wäre also alternativ zu einer Lösung auch für eine "Suchhilfe" dankbar.

[Stevie]

Die korrekte Methode (auch, wenn es komisch klingt) wäre Click. Die Methode Toggle wird nur aufgerufen, wenn man auf die Checkbox klickt und nicht, wenn man im Code z.B. CheckBox1.Checked := False schreibt (witzigerweise wird in diesem Fall aber die Click Methode aufgerufen).

Somit würde dein Code etwa wie folgt aussehen:

Delphi-Quellcode:

TMyCheckBox = class(TCheckBox)
protected
  procedure Click; override;
end;

procedure TMyCheckBox.Click;
begin
  inherited; 

  // dein Code
end;

[Sir Rufo]

Wenn sich der Status der TCheckBox ändert, dann wird das Event TCheckBox.OnClick aufgerufen.

Somit ist eigentlich schon alles vorhanden um da weiteren Code aufzurufen.

Einfach mal im Editor einen DoppelKlick auf die CheckBox machen, dann sollte eigentlich der passende Methodenrumpf erscheinen

EDIT: Eine Ableitung der Klasse ist hier oversized

[VkPenguin]

Hallo nocheinmal,

funktioniert tadellos, das war ja einfach Vielen lieben Dank für eure Hilfe! .... wieder was gelernt...