各位大哥，請問如何stringgrid的onselectcell事件呢？在一個類裡(50分)

W

wen_one

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #1

各位大哥，請多幫手。

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #2

-->如何stringgrid的onselectcell事件呢？
什么意思？？？？
设置？ 读取？

 

W

wen_one

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #3

就是我想做一控件，繼承於tstringgrid的，其中我想繼承onselectcell事件，
不知怎麼寫，寫大俠高抬貴手。幫幫忙。謝謝。

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #4

继承SelectCell方法就可以了。

 

A

Ale.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #5

http://www.delphibbs.com/delphibbs/dispq.asp?lid=380689

 

W

wen_one

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #6

各位大哥，很感謝你們的熱心幫助，隻因小弟是菜鳥，所以還要寫各位多多幫手。
另外，繼承的事件中還需引用SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);中的canselect及acol值
比如我想判斷是第七列時，則canselect為false並自動移至下列。
還請各位多多幫手。

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #7

type
MyStringGrid = class(TStringGrid)
private
....
protected
function SelectCell(ACol, ARow: LongInt): Boolean; override;
.....
end;

function TMyStringGrid.SelectCell(ACol, ARow: LongInt): Boolean;
begin
result := false;
if ACol = 7 then Col := 8 else result := inherited selectcell(acol, arow);
end;
....

 

W

wen_one

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-02

• #8

我想兩位兄弟都很熱心的幫忙，隻因小弟資歷較錯，沒能看懂前位兄弟的指導，
對於pearl就先給著點分，若不行就作請教。謝謝。(分數輕少。未能重謝)