DBGRID設定是否EDIT問題 |
答題得分者是:hagar
|
Komuro
一般會員 發表:27 回覆:46 積分:14 註冊:2004-02-19 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
1.單欄不可 Edit
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); var c: TInplaceEdit; i: integer; begin for i := 0 to DBGrid1.ControlCount -1 do if DBGrid1.Controls[i] is TInplaceEdit then begin c := TInplaceEdit(DBGrid1.Controls[i]); Break; end; if (c <> nil) and (DBGrid1.SelectedIndex = 0) then Key := #0; end;2.單列不可 Edit procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); var c: TInplaceEdit; i: integer; begin for i := 0 to DBGrid1.ControlCount -1 do if DBGrid1.Controls[i] is TInplaceEdit then begin c := TInplaceEdit(DBGrid1.Controls[i]); if (c <> nil) and (TCrackGrid(DBGrid1).Row = 1) then begin Key := #0; Exit; end; end; end;3.單格不可 Edit, 以上兩者改一下 --- 這次沒買到 cd-pro2 實在很 ... 發表人 - hagar 於 2004/03/18 18:03:06 |
Komuro
一般會員 發表:27 回覆:46 積分:14 註冊:2004-02-19 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
Komuro
一般會員 發表:27 回覆:46 積分:14 註冊:2004-02-19 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
Komuro
一般會員 發表:27 回覆:46 積分:14 註冊:2004-02-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |