目前處理的是把GridControl的數據行拖拽到richEditControl裏 其他拖拽操作依然可以參考以下過程
gridControl的數據源只有兩列的DataTable 列分別爲 Code Caption
開始拖拽的思路是 在gridControl的MouseDown以及MoseMove裏處理開始拖拽,在richEditControl裏執行並且結束拖拽。
以下爲gridControl的MouseDown以及MouseMove方法
DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo m_DownHitInfo_TuXing = null;
private void gv_TuXing_MouseDown(object sender, MouseEventArgs e)
{
DevExpress.XtraGrid.Views.Grid.ViewInfo.GridHitInfo hi = this.gv_TuXing.CalcHitInfo(new Point(e.X, e.Y));
int iMouseRowHandle = hi.RowHandle;
if (iMouseRowHandle >= 0 && e.Button == MouseButtons.Left)
{
m_DownHitInfo_TuXing = hi;
}
}
private void gv_TuXing_MouseMove(object sender, MouseEventArgs e)
{
GridView view = sender as GridView;
if (e.Button == MouseButtons.Left && m_DownHitInfo_TuXing != null)
{
Size dragSize = SystemInformation.DragSize;
Rectangle dragRect = new Rectangle(new Point(m_DownHitInfo_TuXing.HitPoint.X - dragSize.Width / 2, m_DownHitInfo_TuXing.HitPoint.Y - dragSize.Height / 2), dragSize);
//當鼠標離開原來的控件區域之後才顯示拖拽效果
if (!dragRect.Contains(new Point(e.X, e.Y)))
{
m_TmrDragDropCanRun = true;
tmr_DragDrop.Start();
DataRow row = view.GetDataRow(m_DownHitInfo_TuXing.RowHandle);
Model.DragDropData modelData = new Model.DragDropData();
modelData.Sender = gc_TuXing;
modelData.Data = row;
view.GridControl.DoDragDrop(modelData, DragDropEffects.Move);
m_DownHitInfo_TuXing = null;
DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = true;
}
}
}
if (!dragRect.Contains(new Point(e.X, e.Y)))
這個判斷保證了只有當鼠標移動出gridControl的範圍之後纔會觸發gridControl的DoDragDrop
這時如果你按住鼠標左鍵不放 都是處於DragDrop狀態,這時候有個神奇的事情 所有控件的MouseMove方法都失效了。
這時我們來處理一下richEditControl的接收,這裏要處理兩個方法DragOver以及DragDrop ,DragOver在鼠標進入richEditControl區域時改變鼠標樣式,DragDrop處理在richEditControl上釋放鼠標時處理以及結束拖拽。
private void rec_EMR_DragOver(object sender, DragEventArgs e)
{
rec_EMR.Select();
if (e.Data.GetDataPresent(typeof(Model.DragDropData)))
e.Effect = DragDropEffects.Move;
else
e.Effect = DragDropEffects.None;
}
private void rec_EMR_DragDrop(object sender, DragEventArgs e)
{
try
{
m_TmrDragDropCanRun = false;
tmr_DragDrop.Stop();
Model.DragDropData modelData = (Model.DragDropData)e.Data.GetData(typeof(Model.DragDropData));
switch (modelData.Sender.Name)
{
case "gc_TuXing":
//插入圖形
string strImageID = ((DataRow)modelData.Data)["Code"].ToString();
Image imgInsert = m_EMR_BLL.EMR_Image_Get_By_Id(strImageID);
rec_EMR.Document.InsertImage(rec_EMR.Document.CaretPosition, imgInsert);
break;
default:
break;
}
}
catch (Exception ex)
{
XtraMessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
finally
{
}
}
其中的Model.DragDropData是我自行封裝的數據類,兩個屬性 分別對應數據的發送者以及數據
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ElectronicMedicalRecords.Model
{
public class DragDropData
{
public System.Windows.Forms.Control Sender { get; set; }
public object Data { get; set; }
}
}
那麼通過數據的發送者就可以判斷接收的是什麼類型的數據以便對具體的情況進行具體的處理
最後因爲拖拽事件過程中所有MouseMove事件都失效,爲了解決在richEditControl中不能進行插入符跟隨鼠標定位的問題,在界面上添加了一個Timer 每0.5秒進行一次插入符定位處理以實現控制拖拽數據插入位置的問題,代碼如下
private bool m_TmrDragDropCanRun = false;
private void tmr_DragDrop_Tick(object sender, EventArgs e)
{
//在拖拽時定位鼠標座標
if (m_TmrDragDropCanRun)
{
tmr_DragDrop.Stop();
Point pMouse = Cursor.Position;
Point pEMR_Edit = this.rec_EMR.PointToScreen(rec_EMR.Location);
Point pTruePoint = new Point(pMouse.X - pEMR_Edit.X, pMouse.Y - pEMR_Edit.Y);
Point docPoint = Units.PixelsToDocuments(pTruePoint,
rec_EMR.DpiX, rec_EMR.DpiY);
DevExpress.XtraRichEdit.API.Native.DocumentPosition pos = rec_EMR.GetPositionFromPoint(docPoint);
if (pos != null)
{
bsi_BianJiLeiXing.Caption = pos.ToString();
rec_EMR.Document.CaretPosition = pos;
}
else bsi_BianJiLeiXing.Caption = "Mouse:(" + pMouse.X + "|" + pMouse.Y + " E:(" + pTruePoint.X + "|" + pTruePoint.Y + ")";
if (m_TmrDragDropCanRun)
{
tmr_DragDrop.Start();
}
}
else
{
tmr_DragDrop.Stop();
}
}