listview问题? |
答題得分者是:Chance36
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
Chance36
版主 發表:31 回覆:1033 積分:792 註冊:2002-12-31 發送簡訊給我 |
你可以在ListView.OnMouseDown事件中處理
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Var HitTest : THitTests; begin HitTest := GetHitTestInfoAt(X, Y); If htOnItem IN HitTest Then Begin // 點在Item上 End Else If ..... IN HitTest Then Begin // 偵測其位置 .... End; end; 摘錄自Delphi HELP // ============================================================= THitTest and THitTests are used in the GetHitTestInfoAt method. Unit ComCtrls or QComCtrls Delphi syntax: type THitTest = (htAbove, htBelow, htNowhere, htOnItem, htOnButton, htOnIcon, htOnIndent, htOnLabel, htOnRight, htOnStateIcon, htToLeft, htToRight); THitTests = set of THitTest; Description THitTests is a set of THitTest values. THitTest can have any of the following values: Value Means the point is htAbove Above the client area. htBelow Below the client area. htNowhere Inside the control, but not on an item. htOnItem On an item, its text, or its bitmap. htOnButton On a button. htOnIcon On an icon. htOnIndent On the indented area of an item. htOnLabel On a label. htOnRight On the right side of an item. htOnStateIcon On a state icon or bitmap associated with an item. htToLeft To the left of the client area. htToRight To the right of the client area. |
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
Chance36
版主 發表:31 回覆:1033 積分:792 註冊:2002-12-31 發送簡訊給我 |
在Delphi 7 須要 uses ComCtrls
它是TListView的Method呀! 也提醒了我自已,更正如下
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Var HitTest : THitTests; begin HitTest := TListView(Sender).GetHitTestInfoAt(X, Y); If htOnItem IN HitTest Then Begin // 點在Item上 End Else If ..... IN HitTest Then Begin // 偵測其位置 .... End; end;發表人 - chance36 於 2004/05/21 11:52:39 |
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
|
Chance36
版主 發表:31 回覆:1033 積分:792 註冊:2002-12-31 發送簡訊給我 |
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |