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

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

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

drag i drop | delphi i iexplorer [D7, WinXP]

fufel © (2006-08-05 16:40:00)
debrij denj.
u menja takaja zada4a stait, mne iz iexplorer nado pereta5itj na formu fotografiju tak, 4tobi na forme v edit1 otabrazilsja adres etoj samoj fotografie.
esli neznaete, nape6ite xotj v kakom napravlenie iskatj.

fufel (2006-08-27 19:56:00) [1]
izvenite snova za bespokojstva no tut v kode "easy" ja na6ol neto4nostj,
kogda ja delaju pereme5aju fotku to mne on vidajut ne URL adres fotki a silku, toestj vidajot adres kuda perejdjot stranica esli ja na foto nazmu :S
kak mne ispravitj eto?

fufel (2006-08-09 22:03:00) [2]
blogodorju vsex za pomo5j

easy (2006-08-06 22:36:00) [3]
http://dfc.com.ru/?sid=2&id=11&itemid=39

antonn (2006-08-05 20:30:00) [4]
protected
procedure CreateParams(var Params: TCreateParams); override;
private
procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;

procedure TF_PlayList.CreateParams(var Params: TCreateParams);
begin
inherited
CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

procedure TF_PlayList.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char;
FilesCount,N : Integer;
begin
inherited;
FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);
begin
for N := 0 to FilesCount - 1 do begin
DragQueryFile(Message.drop, N, aFile, 256);
aFile - вот путь и имя файла перетягиваемого
end;
end;
DragFinish(Message.Drop);
end;

Ketmar (2006-08-05 19:52:00) [5]
> esli neznaete, nape6ite xotj v kakom napravlenie iskatj

орешек.

DprYg (2006-08-05 19:43:00) [6]
Чтобы форма стала приемником файлов нужно использовать процедуру модуля ShellAPI DragAcceptFiles. Также форма должна обрабатывать событие WM_DROPFILES. И в этом обработчике получить полные имена функцией DragQueryFile

fufel (2006-08-05 19:16:00) [7]
ja izvenjajusj siljno, no mozna kakojnebutj premer ili funkci xotjabi, a to uze denj is4u i nekak ne mogu najti :S

MBo (2006-08-05 17:14:00) [8]
реализовать интерфейсы IDropTarget IDataObject
или найти в инете библиотеку Drag'n'Drop Component Suite
(Melander, Johnson)

Наверх

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