Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
ВнизПеретаскивание файлов(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;
В общем, работать, как мне кажется, надо в этом направлении.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c