click på komponent

procedure TForm1.MyShape1Click(Sender: TObject);
begin
  ShowMessage('Min hestebesked!');
end;

Ja, det er events. Det er, som jeg har vist, dit komponents OnClick-event du skal fange :-)

Det er ikke helt det jeg er ude efter a-p.

Jeg kan ikke bruge object inspector til at specificere hvilken funktion der skal kalde min procedure.

Hvis det ikke er det du er ude efter, har du godt nok formuleret dit spørgsmål helt forkert!

eks:
i interface afsnittet:

  Procedure MinEvent(sender : TObject);

i din Create skriver du :

  MinEvent := MinKlasse.OnClick;

Så kalder den din metoder når der kommer et eventet OnClick forekommer:

/Sune

Når jeg prøver det så får jeg en "Not enough actual parameters" fejl i MinEvent := MinKlasse.OnClick;
Her er hvad jeg har gjort:


type
  TRemoteButton = class(TShape)
  ...
  ...
  published
  ...
  Procedure MinEvent(sender : TObject);
  ...

constructor TRemoteButton.Create(AOwner : TComponent);
begin
  inherited;
  MinEvent := TRemoteButton.OnClick;
  ...
  ...

Procedure TRemoteButton.MinEvent(Sender: TObject);
begin
  Beep;
end;

Hedder det ikke
TRemoteButton.OnClick := MinEvent;
Eller
TRemoteButton.OnClick := MinEvent();

?

a-p: hvis jeg gør det så får jeg en "Method identifier expected"

prøver jeg Self.OnClick := MinEvent; får jeg et beep når constructoren kaldes, men ikke når der klikkes på komponenten.

Jeg er ked af at være så besværlig...