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:
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"