Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

Перетаскивание файлов(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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
3-86703
badaxe
2003-01-09 13:44
2003.01.27
Выбор из таблицы случайным образом.


1-86832
Dor
2003-01-19 11:58
2003.01.27
Есть label1,нужно что в label1.caption было текущее время


1-86731
Alinka
2003-01-15 16:58
2003.01.27
D3,D4,D5,D6,D7?


3-86723
Вованчик
2003-01-08 08:52
2003.01.27
Генераторы


1-86848
AlexSSS
2003-01-19 01:06
2003.01.27
Путь к CD