Hello Everyone!
Can someone steer me to a drag & drop component, one that will work with
Delphi 2.0 and works ;-)
I'm looking for something that can be used as an application launch bar,
ya know drag an icon to a small area and have it import, Icon and all to
the form.  I've found lot's of code but nothing seems to work or
is very limited.
The latest source I found will not compile because it makes referance
to an LBIMAGE and tries an LBIMAGE.CLEAR command, etc.  I figured it's an
image button but cannot find anything relating to this that will work.
Here's the code ..
procedure TForm1.ShowImages(const FileName : String);
var IconCount : Word;
    Index : Integer;
    begin
        SelectedFile := FileName;
        IconCount := Word(ExtractIcon(0,PChar(FileName),-1));
        lbImage.Clear;
          for Index := 1 to IconCount-1 do begin
          lbImage.Items.Add(IntToStr(Index-1));
          end;
        if IconCount > 1 then begin
        lbImage.ItemIndex := 0;
        lbImageClick(Self);
        end;
    end;
Brad
brad@psnw.com
--- Blue Wave/DOS v2.30
---------------