全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1038
推到 Plurk!
推到 Facebook!

在TStringGrid中如何判断Cell是否获得焦点和失去时

尚未結案
lssoft2004
一般會員


發表:4
回覆:3
積分:1
註冊:2004-03-08

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-06-16 20:14:11 IP:220.160.xxx.xxx 未訂閱
在TStringGrid中如何判断Cell是否获得焦点和失去时,我想从TStringGrid中继承一个,再加上BeforeExitCol,BeforeExitRow,BeforeExitCell事件,就可以在ExitCell前,自定义可以ExitCell的条件,但我不知道TStringGrid是调用了什么方法来ExitCell的,所以自己加上的事件就无从触发了,请大家帮忙看看,这应如何做? TCustomGrid中的MoveColRow和MoveColumn不知道是做什么用的?而且这两个方法是静态的无法继承?
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-06-16 21:27:54 IP:211.20.xxx.xxx 未訂閱
lssoft2004 你好
可設置一組變數pCol,pRow,以供比對用,並在selectCell事件中作如下的處理    procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  StringGrid1.Cells[ACol, ARow] ; // 就是游標所在的位置
  If (ACol<>pCol) OR (ARow<>pRow) Then Begin
    ..... ;// 在此檢查OnCellExit事件
  End;      pRow := ARow;
  pCol := ACol ;
end;
發表人 - chance36 於 2004/06/16 21:33:00
lssoft2004
一般會員


發表:4
回覆:3
積分:1
註冊:2004-03-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-06-18 20:38:46 IP:218.66.xxx.xxx 未訂閱
谢谢chance36的指导 發表人 - lssoft2004 於 2004/06/18 20:39:39
系統時間:2024-07-04 3:50:27
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!