Перетаскивание файлов(HELP!)

← →
denisww (2003-01-18 09:08) [0]

Господа Мастаки! Помогите !
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988619923&n=15
надо сие довести ,что бы работало допустим только с label1 на форме(и даже если случился драг с формы)

← →
Каспер (2003-01-18 10:42) [1]

все работает
вопрос уточни что хотишь

← →
denisww (2003-01-18 11:53) [2]

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

← →
MBo (2003-01-18 12:47) [3]

drag"n"drop component suite of Anders Melander
(www.torry.net)

← →
Каспер (2003-01-18 13:25) [4]

Перетаскивание файлов(HELP!) [D6, Win95/98, Win2k, WinXP]
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Пример приведенный там служит для того чтобы показать как на Вашу форму можно было бы затаскивать файлы! откуда угодно!
У меня он работает!

← →
denisww (2003-01-18 14:08) [5]

так и у да работает
но только если я сделаю DragAcceptFiles(ListBox1.Handle, True);
а потом сдвину listBox1 с form1 - уже неработает (работает только с формой1, а нес listBox1)

← →
denisww (2003-01-18 14:18) [6]

Как правильно переписать текст чтобы сие действие было нацеленно только на ListBox1 , а не на Form1?

← →
MECHANIC (2003-01-18 22:25) [7]

Попробуй сделать следующее (не пробовал, однако думаю что этот способ поможет):

type
TMainForm = class(TForm)
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
private
procedure NewProc(var Message: TMessage);
end;

var
MainForm: TMainForm;
OldProc: TWndMethod;

implementation

{$R *.dfm}

{ TMainForm }

procedure TMainForm.NewProc(var Message: TMessage);
begin
case Message.Msg of
WM_DROPFILES:
begin
{DO PLACE HERE YOUR CODE, RESPONDING TO THIS MESSAGE};
{FOR EXAMPLE :
procedure TForm1.WMDropFiles(var Msg!!!: TMessage);}

end;
end;
OldProc(Message);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
OldProc := ListBox1.WindowProc;
ListBox1.WindowProc := NewProc;
end;

В общем, работать, как мне кажется, надо в этом направлении.

Перетаскивание файлов(HELP!) Найти похожие ветки