TImage: DragDrop nur ausführen, wenn Bitmap vorhanden

[marabu]

Moin,

ich würde es etwa so machen:

Delphi-Quellcode:

procedure TDemoForm.ApplicationEventsIdle(Sender: TObject;
  var Done: Boolean);
begin
  with SourceImage do
    DragMode := TDragMode(not Picture.Bitmap.Empty);
  Done := True;
end;

Der Trick ist die Rekonfiguration von DragMode, ob du es über die ApplicationEvents machst ist zweitrangig.

Grüße vom marabu