помогите с кодом Drag&Drop

[Rec0il]

Ребята, помогите пожалуйста реализовать функцию Drag&Drop.

Есть панель с кнопками speedbutton.
В них по первому нажатию, гружу через опендиалог ярлык. при повторном нажатии уже открывается программа.
Делаю так:

var
  Form1: TForm1;
     S:string;
 
..... ....
 
procedure TForm1.sSpeedButton1Click(Sender: TObject);
 
var
   Icon : TIcon;
   Pch: array[0..256] of Char;
   IconIndex: Word;
begin
  if S='' then    
    begin
     if  sOpenDialog1.Execute then
    begin  
       S:=sOpenDialog1.FileName; 
          sSpeedButton1.Glyph:=nil;
         Icon:=TIcon.Create;
         StrPCopy(Pch,S);
         Icon.Handle:= ExtractAssociatedIcon(hInstance, Pch, IconIndex);
         sSpeedButton1.Glyph.Width:= Icon.Width;
         sSpeedButton1.Glyph.Height:= Icon.Height;
         sSpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);
         Icon.Free;
    end;
        if S='' then               
        begin
               sSpeedButton1.Glyph:=nil;
          ShowMessage('Ничего не выбрано');
        end
        else

  
      end
      else
          begin
          sPanel1.Caption:=S;
          ShellExecute (Form1.Handle, nil, PChar(S), nil, nil, SW_RESTORE);
          end;

Каким образом на эти кнопки можно сделать функцию Drag&Drop?
Но что бы функция с опендиалогом осталась.

Подскажите пожалуйста.

[Dennis777]

а что вы перетаскивать будете?

[Rec0il]

Сообщение от Dennis777

а что вы перетаскивать будете?

Ярлыки, на свою программу (в кнопку speedbutton)
Что-то типа панели быстрого запуска.

[Dennis777]

Я не совсем понимаю что вы хотите,

но если примеры ярлыков у вас перед этим выводятся на форму (например, в имейджи), то в onMouseDown (имейджа), я бы писал:

if Button<>mbLeft then
move:=False else
begin
move:=True;
x0:=x;
y0:=y;
end;

в он MouseMove:

if move then
Image1.SetBounds(Image1.Left+x-x0Image1.Top+y-y0,Image1.width,Image1.height);

а в он MouseUp (по отпусканию имейджа) соответсвенно проводил бы проверку (находиться ли имейдж над кнопкой, и если да, то подгружал соответствующий глиф. Если нет - вернуть на исходное место.) и дописал: move:=false;

И объявите переменные:
move: boolean;
X0, Y0:integer;

[Rec0il]

Сообщение от Dennis777

Я не совсем понимаю что вы хотите

Попробую более понятно пояснить свой первый пост)

У меня есть панель с кнопками speedbutton.
На кнопках код, который в первом посте.
По нажатию идет проверка переменной S, если она пуста, то открывается опендиалог и выберается какой либо файл. и переменной S присваивается путь к файлу. с помощью него я подгружаю иконку ярлыка в кнопку speedbutton. Вобщем панель быстрого запуска.

И, я бы хотел сделать так, что бы можно было с любого места (рабочий стол, папка...) перетаскивать ярлыки, себе на форму, в те самые кнопки (Speedbutton).

Допустим взял ярлык с рабочего стола, перетащил его в свою программу, в кнопку speedbutton, и в кнопке сразу появилась иконка ярлыка, и по нажатию открывается та программа, которую я перетащил)
По моему это называется Drag&Drop, если нет, прошу простить))

[cotseec]

агрегируйте IDropTarget либо в классе-интерцепторе кнопки или панели, на которой лежат кнопки или форме или опишите отдельный класс (все уже написано - можно найти даже компонент)
на закуску

[Stilet]

http://delphiworld.narod.ru/base/wm_dropfiles.html
Не?

[Rec0il]

Спасибо мужики!!!
Разобрался, понял как делать Drag&Drop ))
Но у меня к вам еще 1 вопрос, на эту же тему.
Перетягиваю ярлык на форму, в кнопке speedbutton появляется иконка, и по нажатию этой кнопки запускается прога. Всё именно так как я хотел. Но как мне сделать добавление на вторую кнопку
На форме же будет несколько кнопок.

Я думаю, наверное надо проверять переменные, если они не пустые, то кидать на следующую кнопку...

Прошу, если Вас не затруднит, дополните мой код, или дайте внятный ответ, как это сделать.

Сейчас всё работает с одной кнопкой, вот так:

var
  Form1: TForm1;
  S:string;

......

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
CFileName array[0..MAX_PATH] of Char;
Icon:TIcon;
Ici:Word;
begin
  If DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH)> 0 then
    begin

     S:=CFileName;
    sSpeedButton1.Glyph:=nil;
         Icon:=TIcon.Create;
         StrPCopy(CFileName,S);
         Icon.Handle:= ExtractAssociatedIcon(hInstance, CFileName, Ici);
         sSpeedButton1.Glyph.Width:= Icon.Width;
         sSpeedButton1.Glyph.Height:= Icon.Height;
         sSpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);
         Icon.Free

       end

 end;

[Stilet]

Мне кажется тут есть два варианта:
1) В этом обработчике проверять свободность кнопок.
Допустим при перетяжке будет такой код:

if sSpeedButton1.Glyph=nil then на него else
if sSpeedButton2.Glyph=nil then на него else
if sSpeedButton3.Glyph=nil then на него else
...

Тогда получишь перетяжку на кнопки по порядку их заполнения

2) Описать этот обработчик для своего класса кнопки, наследовав ее от стандартной кнопки

TSSpeedButton=class(TSSpeedButton)
 private
  WMDropFiles(var Msg: TWMDropFiles);
end;

тогда в обработчике можно использовать слово Self, которое укажет на какую кнопку ты тащишь.
Мне кажется второе лучше, поскольку может дать контроль на какую кнопку тащится.

[Rec0il]

Сообщение от Stilet

Мне кажется тут есть два варианта:
1) В этом обработчике проверять свободность кнопок.
Допустим при перетяжке будет такой код:

if sSpeedButton1.Glyph=nil then на него else
if sSpeedButton2.Glyph=nil then на него else
if sSpeedButton3.Glyph=nil then на него else
...

Тогда получишь перетяжку на кнопки по порядку их заполнения

2) Описать этот обработчик для своего класса кнопки, наследовав ее от стандартной кнопки

TSSpeedButton=class(TSSpeedButton)
 private
  WMDropFiles(var Msg: TWMDropFiles);
end;

тогда в обработчике можно использовать слово Self, которое укажет на какую кнопку ты тащишь.
Мне кажется второе лучше, поскольку может дать контроль на какую кнопку тащится.

Первое мне ясно.
Второй вариант, я понял что ты имеешь в виду, да, он мне больше подойдет. Но в отличии от первого варианта, тут я не совсем понял, что мне вообще делать ?)) Стандартная кнопка ведь не сможет отоброжать иконку, или я что-то не так понял ?
Я новичок в этом, только начинаю познавать азы.
Если не трудно, можно более детально о втором варианте ?