drag i drop | delphi i iexplorer

← →
fufel © (2006-08-05 16:40) [0]

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.

← →
MBo © (2006-08-05 17:14) [1]

реализовать интерфейсы IDropTarget IDataObject
или найти в инете библиотеку Drag"n"Drop Component Suite
(Melander, Johnson)

← →
fufel © (2006-08-05 19:16) [2]

ja izvenjajusj siljno, no mozna kakojnebutj premer ili funkci xotjabi, a to uze denj is4u i nekak ne mogu najti :S

← →
DprYg © (2006-08-05 19:43) [3]

Чтобы форма стала приемником файлов нужно использовать процедуру модуля ShellAPI DragAcceptFiles. Также форма должна обрабатывать событие WM_DROPFILES. И в этом обработчике получить полные имена функцией DragQueryFile

← →
Ketmar © (2006-08-05 19:52) [4]

> esli neznaete, nape6ite xotj v kakom napravlenie iskatj

орешек.

← →
antonn © (2006-08-05 20:30) [5]

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;

http://dfc.com.ru/?sid=2&id=11&itemid=39

blogodorju vsex za pomo5j

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?

drag i drop | delphi i iexplorer Найти похожие ветки