Q&A

  • 드래깅 할때의 커서 변환 문제입니다.
Panel을 Form위에서 드래깅 하려는 데요.. 소스는 아래와 같이 했습니다.
근데 드래그는 잘 되는데.. 드래그 하려고 마우스를 Down하는 순간 커서가
crNoDrop로 바뀌어 버리는 군요... 그냥 기존의 커서를 그대로 가져갈 순 없나요?

꼭 좀 알려 주세요.. 정말 답답합니다....^^;

//----------------------------------------------------------//

procedure TForm1.FormCreate(Sender: TObject);
begin
    panel1.DragMode := dmAutomatic;
end;



procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
        Accept := Source is TPanel;
        if panel1.Dragging then begin
            panel1.Left := x;
            panel1.top := y;
        end;
end;
0  COMMENTS