Zitat von
DJ-SPM:
Doch wie kann ich jetzt registrieren, dass ein Benutzer auf dieses Bild klickt?
Weil es sich um eine Komponente handelt, so über ein Event, z.B. OnPictureClick.
Dieses Event erzwingen kannst du dann so, soweit du intern über das OnMouseDown Event festgestellt hast, dass das Bild angeklickt wurde:
Delphi-Quellcode:
type
TOnPictureClick = procedure (Sender : TObject) of object ; // Weitere Parameter sind auch möglich. TNotifyEvent entspricht dieser Deklaration
TMyComponent = class (TUserControl)
private
procedure AnyProcedure ;
published
property OnPictureClick : TOnPictureClick read FOnPictureClick write FOnPictureClick ;
end ;
Das Event OnPictureClick auslösen kannst du in deinem Komponentencode überall etwa so:
Delphi-Quellcode:
procedure TMyComponent.AnyProcedure ;
begin
if Assigned (OnPictureClick) then
OnPictureClick (Self) ;
end ;