前回の発言のサンプルＰＧについて、幾つか修正をかけています。

制限事項として、以下の項目を追加します。
・このサンプルＰＧでは、すべての項目のタブ値が 0 となっているｄｗオブジェクトを使用する。
・ドラッグ中にマウスカーソルをｄｗの外に出した場合、最初から操作をやり直す。
・ｄｗのタイトルなど、行以外の場所でドロップした場合、最初から操作をやり直す。

また、以下の制限事項は外れました。
・ｄｗコントロール名は\"dw_1\"にしてください。
　→ｄｗコントロール名は任意の名前に設定できます。

テストはそれなりにしていますが、まだ問題点があるかもしれません。
ご意見等は、できましたらNo.017540の発言の方で、コメントをお願いします。
（この発言にコメントが付いてしまうと、記述の修正ができなくなってしまうため）

【環境】
OS:Windows98
PB:PB5.0.04
 
 
【インスタンス変数の宣言】
long    il_dragStartRow = 0
boolean ib_dragControlOut= false
 
 
【Datawindow-DragWithIn イベント】
//ドラッグ中のオブジェクトが自ｄｗ以外の場合、処理を中止
if source<>this then return
 
//ドラッグ開始時
if il_dragStartRow=0 then
  il_dragStartRow = row
  st_rowNo.text   = string(row)
end if
 
 
【Datawindow-DragLeave イベント】
//ドラッグ中のコントロールがｄｗの外に出た場合、フラグをオンにする
ib_dragControlOut = true