請問StringGrid中的onMouseUp事件中~~TShiftState |
答題得分者是:gemi0305
|
jesszn
一般會員 發表:7 回覆:5 積分:2 註冊:2003-09-06 發送簡訊給我 |
他有定義一個 shift : TShiftState
我看說明裡的定義是這樣子的
ssShift The Shift key is held down.
ssAlt The Alt key is held down.
ssCtrl The Ctrl key is held down.
ssLeft The left mouse button is held down.
ssRight The right mouse button is held down.
ssMiddle The middle mouse button is held down.
ssDouble The mouse was double-clicked. 那假設我現在放開滑鼠的同時,我要判斷是否有按ctrl鍵,我要如何判斷呢? procedure TForm1.Stg1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Shift = ssCtrl then --> 這樣寫是錯誤的~~可以請問要如何寫嗎?
Stg1.Cells[1,1] = '1'
else
Stg1.Cells[2,2] ='2'; end;
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ if Shift = [ssCtrl,ssLeft] then
//Mouse左鍵和Ctrl鍵同時按下才會触發 注﹕MouseDown事件才有作用﹐MouseUp事件沒有此作用﹒
參考看看﹗ 其它的例子﹕
case Button of
mbLeft : Edit1.Text := '您按下Mouse左鍵';
mbMiddle : Edit1.Text := '您按下Mouse中鍵';
mbRight : Edit1.Text := '按按下Mouse右鍵';
end; =====================
努力,相信會獲得美麗!
忻晟 發表人 - cashxin2002 於 2003/09/11 16:54:18
------
忻晟 |
gemi0305
版主 發表:81 回覆:564 積分:629 註冊:2003-05-11 發送簡訊給我 |
插個花一下,
要滑鼠左鍵加keyboard的ctrl :
procedure TForm1.Stg1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (Shift = [ssCtrl]) and (Button = mbLeft) then Stg1.Cells[1,1] := '1' else Stg1.Cells[2,2] := '2'; end;國泰平安 發表人 - |
jesszn
一般會員 發表:7 回覆:5 積分:2 註冊:2003-09-06 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |