ja den Code habe ich mittlerweile formatiert.
Hab es anders gemacht und erfüllt den gleichen Zweck.
Delphi-Quellcode:
procedure TForm21.ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
try
ImageList1.GetBitmap(0, Bitmap);
Image.Canvas.Draw(X,Y,Bitmap);
finally
FreeAndNil(Bitmap);
end;
end;
Wie aber bekommt man ein Transparenten Pfeil hin?
Hab in der Imagelist gebastelt,aber es geht nicht?
Siehe Abbildung...