OnClick Ereignis bei TGraphicControl

[Komoluna]

Liebes Forum

Ich habe eine Komponente von TGraphicControl abgeleitet, und möchte ein "OnClick" ereignis auslösen...
Geht das irgendwie? oder muss ich von einer anderen Komponente ableiten?

Komoluna

[theo]

Wie kommst du darauf, dass es nicht geht? Wo ist das Problem?

[Komoluna]

ups falsche frage...
ich meine nicht "OnClick" sonder so eine "DoClick" Procedure mit override und inherited...

ich wollte nähmlich eine Checkbox-artige Komponente machen, und ich zeichne einfach beim Paint ereignis den jeweiligen zustand der Checkbox.
Nun möchte ich aber auch auf den User Reagieren können(der User soll die Werte(Checked) der Checkbox verändern könnent )

Sorry das ich mich so blöd ausgedrückt hab

Komoluna

[theo]

Die Methode heisst "Click". Ich weiss nur nicht, warum ich das für dich nachschauen muss, du hast den Quelltext doch auch.

Code: Alles auswählen

  TMy=class(TGraphicControl)
    protected
      procedure Click; override;
  end;    
.....
procedure TMy.Click;
begin
  inherited Click;
  ShowMessage('click');
end;