有關StringGrid的問題 |
|
答題得分者是：Fishman
|
|
lin11112
初階會員   發表：42 回覆：83 積分：25 註冊：2003-02-17 發送簡訊給我 |
|
|
jason_cyl329
高階會員 發表：123 回覆：155 積分：105 註冊：2003-05-26 發送簡訊給我 |
|
|
lin11112
初階會員 發表：42 回覆：83 積分：25 註冊：2003-02-17 發送簡訊給我 |
程式如下
當Ctrl Key按下不放滑鼠點下
StringGrid->MouseToCell(X, Y, Column, Row);
StringGrid->Selection.Left = Column;
StringGrid->Selection.Right = Column;
StringGrid->Selection.Top = Row;
StringGrid->Selection.Bottom = Row;
但無法顯示反藍色的選擇
當滑鼠點其他cell則又跳至其他cell上
請問應如何做才能達到select
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi: 在第一個 Cell 按下滑鼠左鍵，然後再按下 Shift 鍵，並於第二個 Cell 按下滑鼠左鍵，程式會自動將區間內 Cell 自動選取，或是用拖曳方式，亦可達到 Multi-Select 功能。 測知那些cell被選擇到
procedure TForm1.Button9Click(Sender: TObject);
var
I,J : Integer;
begin
for i:= 0 to StringGrid1.ColCount - 1 do
begin
for j := 0 to StringGrid1.RowCount - 1 do
begin
If ((I >= StringGrid1.Selection.Left) and
(I <= StringGrid1.Selection.Right) and
(J >= StringGrid1.Selection.Top) and
(J <= StringGrid1.Selection.Bottom)) THEN
StringGrid1.Cells[I,J] := 'O' ELSE StringGrid1.Cells[I,J] := 'X';
end;
end;
end;
------
Fishman |
|
lin11112
初階會員 發表：42 回覆：83 積分：25 註冊：2003-02-17 發送簡訊給我 |
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
|
|
lin11112
初階會員 發表：42 回覆：83 積分：25 註冊：2003-02-17 發送簡訊給我 |
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
|
|
lin11112
初階會員 發表：42 回覆：83 積分：25 註冊：2003-02-17 發送簡訊給我 |
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
|
|
lin11112
初階會員 發表：42 回覆：83 積分：25 註冊：2003-02-17 發送簡訊給我 |
發表時間：2003-12-05 13:21:42
IP:210.202.xxx.xxx 未訂閱
系統時間：2024-04-25 8:59:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |