Delphi-Quellcode:
procedure clickcallback(Sender:TObject);
begin
//code...
end;
procedure callbackassign(bitmap:TBitMap);
begin
bitmap.onclick:=clickcallback;
end;
edit: is vielleicht n bisschen wenig für nen anfänger..
im callback kannst du mit (sender as TBitMap) auf dein bitmap zugreifen(z.b. (sender as tbitmap).width ).
und für jedes neu erstellte bitmap halt einmal callbackassgin mit dem bitmap aufrufen.