继承TstringGrid(20分)

阿

阿厍

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-09

• #1

1。如何改变单个栅格的背景色或字符颜色，如大于0，变红色。
是否可运用他的Objects来改颜色。
2。由于Cursor的属性变换多样，如何判断其属性。
mousedown事件里判断是否Cursor＝crHSplit属性（即拉动表头宽度等等情况）谢谢！

 

E

eYes.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-09

• #2

1. procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
2. if Cursor = crHSplit then ....

 

阿

阿厍

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-09

• #3

2 TStringGrid有cursor属性，我要处理一个MouseDown事件，
只是不想在拉动控件宽度的MouseDown动作时触发，所以要判断screen.cursor状态，
但是在拉动控件宽度时screen.cursor竟然为0，继续求教。

 

E

eYes.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-09

• #4

2. procedure MouseDown(Button: TMouseButton; Shift: TShiftState; x, y: Integer); override;

 

阿

阿厍

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-10

• #5

procedure TOrderTable.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
inherited MouseDown(Button, Shift,X, Y);
if (Button = mbleft) and not (screen.Cursor = crHSplit) and (FAllDataCount > 0) then
but 还不行？

 

E

eYes.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-10

• #6

那就更高一层吧, 截获WM_MOUSEDOWN消息, 在那里面判断好了. 如果还不行, 另外也有办法
做到, 0是crDefault, 所以需要判断crDefault指向的HCURSOR与crHSplite指向的是否一样
就可以了

 

阿

阿厍

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-10

• #7

请举例说明一下，本人不太理解。谢谢！