StringGRid可以按下enter跳下一筆嗎? |
尚未結案
|
sport_jeff
一般會員 發表:4 回覆:8 積分:2 註冊:2004-01-03 發送簡訊給我 |
|
暗黑破壞神
版主 發表:9 回覆:2301 積分:1627 註冊:2004-10-04 發送簡訊給我 |
|
cxg
中階會員 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
|
sport_jeff
一般會員 發表:4 回覆:8 積分:2 註冊:2004-01-03 發送簡訊給我 |
|
cxg
中階會員 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
|
sport_jeff
一般會員 發表:4 回覆:8 積分:2 註冊:2004-01-03 發送簡訊給我 |
|
cxg
中階會員 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
|
cxg
中階會員 發表:116 回覆:192 積分:76 註冊:2004-02-12 發送簡訊給我 |
怎么贴上去的和我写的内容不一样呢?不知道为什么。 procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in [#13]) then
IF StringGrid1.row < StringGrid1.ROWCOUNT-1 THEN
IF StringGrid1.CELLS[0,StringGrid1.row 1]<>'' THEN
//这个条件你可以更具你的实际情况定义就可以了
StringGrid1.row := StringGrid1.row 1; end;
|
HM
初階會員 發表:21 回覆:32 積分:25 註冊:2004-11-17 發送簡訊給我 |
|
sport_jeff
一般會員 發表:4 回覆:8 積分:2 註冊:2004-01-03 發送簡訊給我 |
|
sport_jeff
一般會員 發表:4 回覆:8 積分:2 註冊:2004-01-03 發送簡訊給我 |
|
sport_jeff
一般會員 發表:4 回覆:8 積分:2 註冊:2004-01-03 發送簡訊給我 |
|
sport_jeff
一般會員 發表:4 回覆:8 積分:2 註冊:2004-01-03 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |