Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизDrag n Drop в элементы TEdit Найти похожие ветки
← →
Набережных С. (2002-02-09 12:16) [6]
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
procedure AppMsg(var Msg:TMsg; var Handled: boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm7 }
procedure TForm1.AppMsg(var Msg: TMsg; var Handled: boolean);
var
s:string;
begin
if (Msg.message = WM_DROPFILES)and(Msg.hwnd = Edit1.Handle) then
begin
SetLength(s,MAX_PATH);
Handled:=true;
DragQueryFile(Msg.wParam,0,PChar(s),MAX_PATH);
Edit1.Text:=PChar(s);
DragFinish(Msg.wParam);
Handled:=true;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Edit1.Handle,true);
Application.OnMessage:=AppMsg;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Edit1.Handle,false);
end;
end.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c