W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
同上
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
B
bswilson
Unregistered / Unconfirmed
GUEST, unregistred user!
能是能,不过每次都要去调用ONDRAWDATACELL和TEXTOUT,不如用TOPGRID
W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
应该怎么做？
B
bswilson
Unregistered / Unconfirmed
GUEST, unregistred user!
在dbGrid中不是有cellclick事件?
不过我觉得调用CustomDrawDataCell和TextOut什么的挺麻烦的(这些例子在坛上很多).
我建议用topgrid控件
不过我觉得调用CustomDrawDataCell和TextOut什么的挺麻烦的(这些例子在坛上很多).
我建议用topgrid控件
W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
能不能给我源码？还有topgrid哪里下载？
B
bswilson
Unregistered / Unconfirmed
GUEST, unregistred user!
先给我你的电邮,我发给你,有3M多一点.
B
bswilson
Unregistered / Unconfirmed
GUEST, unregistred user!
怎样使某几笔资料变色?
你可在 StringGrid 元件的 DrawDataCell 事件中, 依资料的条件性来改变格子或文字的颜色.如 :
OnDrawDataCell(...)
begin
with TStringGrid(Sender) do
begin
if (条件) then
Canvas.TextOut(Rect.Left + 4, Rect.Top + 2, '要显示的文字, 如表格的资料');
end;
而你会看到 StringGrid 的显示资料怎麽有重叠的情况, 那是因为原本StringGrid
要显示的资料与 TextOut 所显示的资料重叠, 解决方法 :
在 Query 元件所加入的栏位(在元件上按右键, 会有 Add Fields...的选单), 在
不要显示资料的栏位的 OnGetText 事件中有一参数设定为 False;
procedure TForm1.Query1Detail1GetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
// 决定在 StringGrid 得知表格资料时, 要不要显示所得到的资料, False -> 不显示
// 就可避免与 TextOut 的文字重叠了
DisplayText : = False;
end;
end;
如果用 Delphi 3 处理很简单.
例如,对表中某字段当其数值小于0时为红字,其他为黑字.
在 StringGrid.OnDrawColumnCell(...) 中:
begin
if TableField.AsInteger < 0 then
StringGrid.Canvas.Font.Color := clRed
else
StringGrid.Canvas.Font.Color := clBlack;
StringGrid.DefaultDrawColumnCell(...);
end;
这样,对 Field 指定的格式仍旧生效,不必重写.
end;
确切的原码找不到了,先消化消化这个.说不定用了TOPGRID这个就用不着了
你可在 StringGrid 元件的 DrawDataCell 事件中, 依资料的条件性来改变格子或文字的颜色.如 :
OnDrawDataCell(...)
begin
with TStringGrid(Sender) do
begin
if (条件) then
Canvas.TextOut(Rect.Left + 4, Rect.Top + 2, '要显示的文字, 如表格的资料');
end;
而你会看到 StringGrid 的显示资料怎麽有重叠的情况, 那是因为原本StringGrid
要显示的资料与 TextOut 所显示的资料重叠, 解决方法 :
在 Query 元件所加入的栏位(在元件上按右键, 会有 Add Fields...的选单), 在
不要显示资料的栏位的 OnGetText 事件中有一参数设定为 False;
procedure TForm1.Query1Detail1GetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
// 决定在 StringGrid 得知表格资料时, 要不要显示所得到的资料, False -> 不显示
// 就可避免与 TextOut 的文字重叠了
DisplayText : = False;
end;
end;
如果用 Delphi 3 处理很简单.
例如,对表中某字段当其数值小于0时为红字,其他为黑字.
在 StringGrid.OnDrawColumnCell(...) 中:
begin
if TableField.AsInteger < 0 then
StringGrid.Canvas.Font.Color := clRed
else
StringGrid.Canvas.Font.Color := clBlack;
StringGrid.DefaultDrawColumnCell(...);
end;
这样,对 Field 指定的格式仍旧生效,不必重写.
end;
确切的原码找不到了,先消化消化这个.说不定用了TOPGRID这个就用不着了
W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
topgrid我找到了，谢谢。但是用topgrid怎么实现以上功能？
H
hbezwwl
Unregistered / Unconfirmed
GUEST, unregistred user!
使用oncellclick就行。
不过不方便。
找个第三方控件吧，像easygrid,topgird,xlgrid
不过不方便。
找个第三方控件吧，像easygrid,topgird,xlgrid
X
xieha
Unregistered / Unconfirmed
GUEST, unregistred user!
给我一份，我的那个在ｄｅｌｐｈｉ６种不能用
xiezhimin@zjpti.com
xiezhimin@zjpti.com
B
bswilson
Unregistered / Unconfirmed
GUEST, unregistred user!
装上topgrid吧,先看看在说.
onClickCell事件回返回行和列,然后Cell[i,j].color:=你想要的颜色
onClickCell事件回返回行和列,然后Cell[i,j].color:=你想要的颜色
W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
我装上了，但不知道怎样返回行列？
B
bswilson
Unregistered / Unconfirmed
GUEST, unregistred user!
tsDBGrid的OnClickCell事件
W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
我知道是这个事件，但我不知道命令该怎么写。
W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么不回答？
W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
没人回答吗？
B
bswilson
Unregistered / Unconfirmed
GUEST, unregistred user!
老兄,不要每个问题都问,如果是学习的话要自己探索.
W
whover
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.