Dazu kannst du ein eigenes Ereignis definieren und dies mit dem "OnClick"-Ereignis der Komponente verknüpfen. Dir Procedure, die du erstellst, muss die gleichen Paramter haben. Bei einem OnClick müsste das nur "Sender : TObject" sein:
Delphi-Quellcode:
private // des Formulars
procedure OwnClick(Sender : TObject);
Beim OnCreate:
MeinIcon.OnClick := OwnClick; // Zuweisung des Ereignisses
Und dann halt noch
Delphi-Quellcode:
procedure TForm1.OwnClick(Sender : TObject);
begin
// der Code für das OnClick-Ereignis
end;
(ungetestet, sollte gehen
)
MFG
Patti
Edit: kleine Anpassungen...