OnClick event i komponent

Prøv at tjekke nedenstående

http://delphi.about.com/library/weekly/aa122899a.htm

Stoney

Jeg kan ikke lige finde noget!
Er der ikke nogen der har noget på dansk?

Jeg vil nu lige gi hmm_t ret i det...

Men jeg har prøvet dette her under med det virker ik! Er der andre som kan hjælpe?
Type
TNotifyEvent = procedure (Sender: TObject) of object;
  private
    FOnClick: TNotifyEvent;
    procedure SetOnClick(const Value: TNotifyEvent);
  published
    property OnClick: TNotifyEvent read FOnClick write SetOnClick;
  end;
impl...

procedure TPSLinkLabel.SetOnClick(const Value: TNotifyEvent);
begin
  FOnClick := Value;
  ShellExecute(0, Nil,\'mailto:grr@grr.dk\', Nil, Nil, SW_NORMAL);
end;

end.

og det virker ik for jeg kan f.eks.. ik få det til at lave en ShowMessage() når programmet køre!

OnClick eventen er defineret i TControl, men er protected. Det eneste du skal gøre, er at redefinere den som published.

TMyControl = class(TWinControl)
published
  property OnClick;
end;

ja nico22. men hvordan kan jeg så køre en f.eks. ShowMessage fra komponenten når man trykker (altså når OnClick køres)???

Ved at tilknytte en event procedure som du plejer, via obj. inspec.

Når den er published bliver den synlig.

Hvis du altid vil have det samme til at ske når der trykkes kan du override den tilhørende procedure

TMyControl = class(TWinControl)
protected
  procedure Click; override;
end;

procedure TMyControl.Click;
begin
  inherited Click;
  ShowMessage(\'Hej\');
end;

Hvis du kigger lidt i Delphi\'s kildekode, kan du se at TControl\'s udgave af \"Click\", sørger for at kalde eventhandleren hvis en sådan eksisterer:

if Assigned(FOnClick) then
  FOnClick(Self);

Hvor FOnClick er en pointer til eventhandleren.

nico22 -> Det virker ikke! Når jeg trykker på mit komponent køre den ikke den ShowMessage!

nico22 ->
Nå men nu har jeg bare brugt en anden måde!

nemlig denne
procedure WMClick(var Msg : TMessage); message WM_LBUTTONDOWN;

Men du må da gerne svare endnu!!?!!

hvis du undersøger TControl\'s kode kan du se at WMLButtonUp kalder Click metoden, der så kalder event-handleren. Du kan sagtens selv fange message\'en - det giver det samme resultat. Men hvis du vil have eventen synlig er den eneste måde at reerklære OnClick som published.