Kind reader;

I have successfully created my TDragObject in the OnStartDrag event
handler and  loaded my TImageList.  The drag image is visible, but only
when dragging over 1) a Ttreeview or 2) outside of my Delphi forms.  I
have been studying the VCL source code, and experimented with calls to
ShowDragImage and others, but all to no avail.  The Delphi components
are doing something that kills the underlying windows ImageList from
showing its image during drag/drop operations.

I'm sure it must be something simple, but I do not know what it is.

Thank you.
B. Linton

I have worked around it by subclassing all components, and modifying
the Create constructor to add csDisplayDragImage to the ControlStyle,
eg:

TBorlandDidntGetThisRightForm = class(TForm)
  constructor Create(AOwner : TComponent);override;
end;

constructor TBorlandDidntGetThisRightForm.Create(AOwner : TComponent);
begin
  inherited;
  ControlStyle := ControlStyle + [csDisplayDragImage];
end;

Possibly one can do this at runtime, altho i doubt it. My solution is
pretty horrific, when you start to think about it.

Chris

Hi Bill

HTH

TIA

Lorenz Lenhardt
Marli_und_Lorenz_Lenha...@csi.com
Griesheim Germany

On Fri, 14 Nov 1997 16:13:10 GMT, cwe...@bates-dorland.co.uk (Chris

HTH

Lorenz Lenhardt
Marli_und_Lorenz_Lenha...@csi.com
Griesheim Germany

procedure Txxx.Loaded;
begin
  inherited;
  //Change here all the ControlStyles to include csDisplayDragImage
end;

Saludos,
        Javier
        Spain
        ;)

This seems to work pretty well:

procedure SetDragAccept(Form : TForm);
var
  i : integer;
begin
  for i := 0 to Form.componentcount - 1 do begin
    if (Form.components[i] is TControl) then
      (Form.components[i] as TControl).ControlStyle :=
        (Form.components[i] as TControl).ControlStyle +
       [csDisplayDragImage];
  end;
end;

Then in the Form's FormCreate event, simply call
  SetDragAccept(Self);