반응형
procedure Tfrm_UMS.lv_SMSSendListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
if (Source.ClassNameIs(_US_DRAG_ELTREE_OBJECT)) or (Source.ClassNameIs(_US_DRAG_CONTROL_OBJECT_EX)) then
Accept := True
else
Accept := False;
end;
_US_DRAG_ELTREE_OBJECT = 'TELTreeDragObject'
_US_DRAG_CONTROL_OBJECT_EX = 'TDragControlObjectEx'
Source.ClassNameIS 를 통해서 드래그 된 Object의 Class의 이름을 알 수 있다.
"Accept := True" 는 DragDrop를 허용, "Accept := False"는 DragDrop를 허용하지 않는다.
반응형
'Programming > Delphi' 카테고리의 다른 글
| 레지스트리에서 프린트 이름 얻기 (0) | 2010.06.30 |
|---|---|
| 드라이브 정보 얻기 (0) | 2010.06.30 |
| 다른 프로그램 종료시까지 대기하기 (0) | 2010.06.30 |
| 지정 함수를 쓰레드에 실어서 실행시키는 클래스 (델파이 버전) (0) | 2010.06.30 |
| [FTP 에러] Invalid PORT Command. (0) | 2010.06.30 |
