TImage: DragDrop nur ausführen, wenn Bitmap vorhanden

[Helmi]

Ich habs jetzt so gelöst:

Delphi-Quellcode:

procedure TSymboleForm.Image_DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var
  Bitmap_leer: Boolean;

begin
  //
  If Source is TImage then
    Bitmap_leer := TImage(Source).Picture.Bitmap.Empty;

  //Drag akzeptieren wenn es von TShellListView oder TImage kommt
  //Wenn Sender und Source das gleiche Image sind (Bild wird wieder zurück-
  //bewegt, dann Accept = false
  //Wenn Original-Bitmap leer ist, dann Accept = false
  Accept := ((Source is TShellListView) or ((Source is TImage) and
            not (Sender = Source)) and not Bitmap_leer);
end;