各位DElphi高手,我對於滑鼠扥放事件並不了解. 正好有遇到將listbox中的Item要扥入treeview中. 不知可否給我一些指點.或者給我一些例子. 謝謝大家.< >< >

滑鼠扥放事 == Drag and drop???    Here is a simple example:    http://delphi.ktop.com.tw/loadfile.php?TOPICID=11295557&CC=252623 發表人 - william 於 2003/08/21 10:05:53

試試看吧~畫面上放一個ListBox和一個TreeView unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; TreeView1: TTreeView; procedure FormShow(Sender: TObject); procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormShow(Sender: TObject); var i:Integer; begin //設定ListBox的初始值 ListBox1.Items.Clear; for i:=1 to 99 do begin ListBox1.Items.Add(Format('%.2d',[i])); end; //將ListBox的拖曳模式設為自動 ListBox1.DragMode:=dmAutomatic; end; procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin //當ListBox項目拖曳經過TreeView時會觸動此事件，此例為判斷如果拖曳進來是TListBox類別的物件，則允許拖曳進入 Accept:=(Source is TListBox); end; procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); var TempNode:TTreeNode; TempList:TListBox; begin //將ListBox的項目拖曳到TreeView上放開滑鼠時觸動此事件 if(Source is TListBox) then begin TempList:=(Source as TListBox); //取得TreeView上，滑鼠放開那一點X,Y座標所在的TreeNode TempNode:=TreeView1.GetNodeAt(X,Y); TreeView1.Items.AddChild(TempNode,TempList.Items[TempList.ItemIndex]); TreeView1.FullExpand; end; end; end. 午夜0時30分~飄在窗外芭蕉葉上的綿綿細雨~將成為你我的心情~

------
午夜0時30分~飄在窗外芭蕉葉上的綿綿細雨~將成為你我的心情~

引言: 各位DElphi高手,我對於滑鼠扥放事件並不了解. 正好有遇到將listbox中的Item要扥入treeview中. 不知可否給我一些指點.或者給我一些例子. 謝謝大家.< >< >

感謝兩位版主,都可以使用.可是又出現新的問題,因為我還需要使用點擊Listbox的Item來顯示在Treeview中.可是如果我將Dragmode設為dkAutomatic時,當我 單擊時(事件已經寫入ListBox的ONClick中)就會觸發兩次單擊事件,Treeview中會顯示相同的Node兩次,我不知怎樣作才可以即實現單擊,有實現扥放.

Set DragMode to dmManual...    

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ListBox1.BeginDrag(True);
end;

引言: Set DragMode to dmManual...

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ListBox1.BeginDrag(True);
end;

William大哥: 情況還是沒變.單擊時還是出現兩次.

Sorry I thought you want to set drag mode to dmManual ... class="code">procedure TForm1.ListBox1Click(Sender: TObject); begin if FClick then begin { .... your code .... } end; end; procedure TForm1.ListBox1EndDrag(Sender, Target: TObject; X, Y: Integer); begin FClick := True; end; procedure TForm1.ListBox1StartDrag(Sender: TObject; var DragObject: TDragObject); begin FClick := False; end; procedure TForm1.FormCreate(Sender: TObject); begin FClick := True; end; FClick is a boolean field...

William大哥: 你的方法是對的,我的問題是解決了.可是每次必需點擊後滑鼠才會落在那個Item上,才能扥放,以致每次都會顯示那一筆本該扥放的資料,所以我困惑的是應該將onclick下的事件寫在哪裡,才會使我扥放時不會觸發click而將資料顯示出來.

引言: >< face="Verdana, Arial, Helvetica"> 我在扥放Item時,必須先點它,那樣滑鼠才會落到所選項上,這樣無形中又會觸發Click事件.所以我困惑的是: 如何點選Item而沒觸發click.

Logic problem? You must select the item and then do the drag. Perhaps you should limit your drag drop action with a key press, say Ctrl? Then you can make use of the MouseDown event together with dmManual drag mode. When Ctrl is down, being drag and show the details otherwise.