Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перетаскивание файлов(HELP!) [D6, Win95/98, Win2k, WinXP]

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

MECHANIC (2003-01-18 22:25:00) [1]
Попробуй сделать следующее (не пробовал, однако думаю что этот способ поможет):

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;

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

denisww (2003-01-18 14:18:00) [2]
Как правильно переписать текст чтобы сие действие было нацеленно только на ListBox1 , а не на Form1?

denisww (2003-01-18 14:08:00) [3]
так и у да работает
но только если я сделаю DragAcceptFiles(ListBox1.Handle, True);
а потом сдвину listBox1 с form1 - уже неработает (работает только с формой1, а нес listBox1)

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

MBo (2003-01-18 12:47:00) [5]
drag"n"drop component suite of Anders Melander
(www.torry.net)

denisww (2003-01-18 11:53:00) [6]
в том то и дело если обьект находиться на форме то всё работает
а если его сдёрнуть с вормы на рабочий стол (допустим) или на форму 2, то уже неработает
сияё решение работает только с обьектом типа форма1 и всё что на ней лежит.а не конкретно с лабел1(допусти)

Каспер (2003-01-18 10:42:00) [7]
все работает
вопрос уточни что хотишь

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »