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;