자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi [질문] Drag & Drop이 안됩니다.
2016.04.26 13:29
탐색기에서 파일을 선택해서 Drag & Drop을 하면 ListBox에 선택한 파일이 표시되도록 하는 기능을 구현하기 위애 아래와 같이 코딩하였습니다.
--FormCreate에 아래와 같이 코딩
procedure TfrmTzzAttach.FormCreate(Sender: TObject);
begin
inherited;
DragAcceptFiles( Self.ListBox1.Handle, True);
end;
-- private에 procedure WMDropFiles(var msg : TMessage); message WM_DROPFILES; 선언하고 아래와 같이 코딩
procedure TfrmTzzAttach.WMDropFiles(var msg : TMessage);
var
hand: THandle;
nbFich, i : integer;
buf:array[0..254] of Char;
begin
hand:=msg.wParam;
nbFich:= DragQueryFile(hand, 4294967295, buf, 254);
if not FDMemTable1.Active then
FDMemTable1.Open;
for i:= 0 to nbFich - 1 do
begin
DragQueryFile(hand, i, buf, 254);
ListBox1.Items.Add(buf);
with FDMemTable1 do
begin
append;
FieldByName('FILENAME').AsString := buf;
POST;
end;
end;
DragFinish(hand);
end;
똑같은 소스를 다른 사람 PC에서 컴파일 실행을 하면 되는데 내 PC에서 컴파일 실행을 하면 안됩니다.
되는 사람 PC에서 컴파일한 실행파일을 내 자리에서 하면 됩니다.
델파이 설정이 뭐가 문제가 있는 건가요?
왜 제 PC에서 컴파일 실행하면 Drag & Drop이 안되는 걸까요?
고수님들의 도움을 부탁 드립니다.
감사합니다.
Delphi [질문] Drag & Drop이 안됩니다.
2016.04.26 13:29
탐색기에서 파일을 선택해서 Drag & Drop을 하면 ListBox에 선택한 파일이 표시되도록 하는 기능을 구현하기 위애 아래와 같이 코딩하였습니다.
--FormCreate에 아래와 같이 코딩
procedure TfrmTzzAttach.FormCreate(Sender: TObject);
begin
inherited;
DragAcceptFiles( Self.ListBox1.Handle, True);
end;
-- private에 procedure WMDropFiles(var msg : TMessage); message WM_DROPFILES; 선언하고 아래와 같이 코딩
procedure TfrmTzzAttach.WMDropFiles(var msg : TMessage);
var
hand: THandle;
nbFich, i : integer;
buf:array[0..254] of Char;
begin
hand:=msg.wParam;
nbFich:= DragQueryFile(hand, 4294967295, buf, 254);
if not FDMemTable1.Active then
FDMemTable1.Open;
for i:= 0 to nbFich - 1 do
begin
DragQueryFile(hand, i, buf, 254);
ListBox1.Items.Add(buf);
with FDMemTable1 do
begin
append;
FieldByName('FILENAME').AsString := buf;
POST;
end;
end;
DragFinish(hand);
end;
똑같은 소스를 다른 사람 PC에서 컴파일 실행을 하면 되는데 내 PC에서 컴파일 실행을 하면 안됩니다.
되는 사람 PC에서 컴파일한 실행파일을 내 자리에서 하면 됩니다.
델파이 설정이 뭐가 문제가 있는 건가요?
왜 제 PC에서 컴파일 실행하면 Drag & Drop이 안되는 걸까요?
고수님들의 도움을 부탁 드립니다.
감사합니다.
또 자답이네요.
"관리자 권한으로 이 프로그램 실행" 옵션을 해제하니까 되네요.
그 이유까지는 저도 잘 모르겠습니다.
관심 가져 주시분들께 감사드립니다.