Как перетащить имя файла на форму? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.144.27.199]

Модераторы: jack128, Rouse_, Krid

Как перетащить имя файла на форму?

Vit

Сообщ. #1 , 10.11.03, 20:11

Guru

Профиль · PM

Поощрения: 16 Dgm

Рейтинг (т): 181

в смысле самого файла из проводника ?

CODE

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure WMDropFiles(var msg : TMessage); message WM_DROPFILES;
*********
procedure TForm1.WMDropFiles(var Msg: TMessage);
var
FileName: array[0..256] of char;
begin
DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
Memo1.Lines.Add(FileName);
DragFinish(THandle(Msg.WParam));
end;

**************
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, true);
end;

Автор: Pigas

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0130 ] [ 16 queries used ] [ Generated: 28.04.24, 16:34 GMT ]