Hi,
bin gerade dabei ein OnClick-Event meiner Komponente zu implementieren. Dummerweise weiß ich nicht, welche Message ich brauche. Hab CM_CLICK probiert, die gibts aber anscheinend nicht. Auch nach einer halben Stunde suchen in Coontrols.pas weiß ich nicht weiter. Hier mal ein paar Zeilen Code:

zusammenfalten · markieren

Delphi-Quellcode:

...
 private
    fOnClick: TNotifyEvent;
    procedure CMClick(var Message: TMessage); message CM_CLICK; //CM_CLICK gibts net
...
...
 published
    property OnClick: TNotifyEvent read fOnClick write fOnClick;
...
...
procedure TCubeNavigationButton.CMClick(var Message: TMessage);
begin

 if not Active then
  begin

   fActive := True;
   Color := fActiveBarColor;
   fButtonShape.Pen.Color := fActiveBorderColor;
   fButtonShape.Brush.Color := fActiveButtonColor;
   fCaptionLabel.Font.Assign(fActiveButtonFont);
   fGlyphImage.Picture.Assign(fGlyphActive);

  end;

 if assigned(fOnClick) then
  begin

   fOnClick(Self);

  end;

end;

Welche Message brauch ich?

EDIT: Wenn ich BN_CLICKED verwende, meldet der Compiler: "[Pascal Fehler] CubeNavigationButton.pas(55): E2139 Ungültiger Botschaftsmethoden-Index"

Hi,

Wovon hast du es denn abgeleitet? Bestimmt reicht es, im published-Abschnitt property OnClick; einzufügen (eigentlich schon bei beliebigen TControl-Nachfahren). Und das wären alle visuellen Komponenten. Es ist eben nur protected und muss erst noch published - veröffentlicht - werden.

Mfg
FAlter

Zitat von FAlter:

Hi,

Wovon hast du es denn abgeleitet? Bestimmt reicht es, im published-Abschnitt property OnClick; einzufügen (eigentlich schon bei beliebigen TControl-Nachfahren). Und das wären alle visuellen Komponenten. Es ist eben nur protected und muss erst noch published - veröffentlicht - werden.

Mfg
FAlter

Von TCustomPanel. Aber es geht darum, im OnClick noch etwas auszuführen bevor User's Code ausgeführt wird.

Hi,

dann mach es so:

zusammenfalten · markieren

Delphi-Quellcode:

  ...
  protected
    procedure Click; override; //ist als dynamic gekennzeichnet
  ...

procedure TMyComponent.Click;
begin
  //Hier dein Code - vorher
  inherited;
  //Hier dein Code - nachher
end;

Mfg
FAlter

[edit]Genau diese Empfehlung gibt es in der OH: TControl.Click Überschreiben, wenn mehr gertan werden soll.[/edit]

Wenn ich es so mache wird bei einem Klick mein Code nicht ausgeführt und der User hat außerdem im OI kein OnClick-Eregnis...

1. hast du denn nun im published Abschnitt property OnClick; hinzugefügt?
2. Wo steht denn nun dein Code (der nun nicht mehr ausgeführt wird)? vor dem Inherited in der oben genannten Click Methode?

Zitat von Muetze1:

1. hast du denn nun im published Abschnitt property OnClick; hinzugefügt?
2. Wo steht denn nun dein Code (der nun nicht mehr ausgeführt wird)? vor dem Inherited in der oben genannten Click Methode?

1. Wenn ich die property deklariere meldet der Compiler: "[Pascal Fehler] CubeNavigationButton.pas(69): E2174 'Click' wurde vorher nicht als PROPERTY deklariert"

2. Vor dem inherited

Hi,

1. es heißt nicht property Click sondern property OnClick, aber procedure Click [edit] und override nicht vergessen [/edit]
2. Das funktioniert (siehe Anhang), getestet mit D7Pers, also hast du meine Anweisungen nicht richtig gelesen.

Mfg
FAlter