我又来送分了，（关于DBGRID的问题）(100分)

宫

宫雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #1

我用dbgrid
出现以下问题
1。TSTRINGRID（DBGRID1）。FIXEDCOLS：=1
时最上面的那一行的ROW=0，COL=1的那个地方出现了白色，
看不见字段的名称。
2。如何得知MUTLISELECT ：=TRUE 得情况下
用户选择的是那一些记录，有没有办法，将他们
拷贝到别的地方

 

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #2

2.用tbookmarklist
var bookmarklist:tbookmarklist;
begin
bookmarklist:=dbgrid1.SelectedRows;
table1.first;
while not table1.Eof do
begin
if bookmarklist.CurrentRowSelected
then
begin

end

 

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #3

1.你再设定一下 dbgrid. titlefont 属性 的 颜色和字体

 

J

JinBo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #4

补允一下第二点。
Var
I : Integer;
Begin
For I := 0 To SelectedRows.Count - 1 do
Begin
Table.GotoBookMark(TBookMark(SelectRows));
DoSomeThing;
End;
End;

在使用这种技术时，FixCols的内容是可以修改与滚动的，如果需要更好的效果则
使用其它控件如RXLib等。

 

郑

郑宇轩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #5

@^@

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
BookmarkList: TBookmarkList;
Bookmark: TBookmark;
begin
Bookmark := Table1.GetBookmark;
try
ListBox1.Items.Clear;
BookmarkList := DbGrid1.SelectedRows;
for I := 0 to BookmarkList.Count - 1 do
begin
Table1.GotoBookmark (Pointer (BookmarkList ));
ListBox1.Items.Add (Table1.FieldByName (
'Name').AsString);
end;
finally
Table1.GotoBookmark (Bookmark);
Table1.FreeBookmark (Bookmark);
end;
end;

 

S

spear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-23

• #7

我想问一句：如何使用自定义的键如F11来进行多重选择
并且，按F11后能将选中的行改变成红色？

onkeydown event:
if key=vk_f11 then
begin
keybd_event(vk_control,0,0,0);
keybd_event(vk_lbutton,0,0,0);
keybd_event(vk_control,0,keyeventf_kyeup,0);
end
为什么不能代替ctrl+lbutton?而且此时
在ondrawcolumncell中要将先选中的记录:
dbgrid1.canvas.brush.color:=clRed;
dbgrid1.canvas.Fillrect(rect);
dbgrid1.canvas.textout(rect.left+3,rect.top+3,column.field.asstring);
为何不能立即起作用？而需要模拟一下记录指针的移动,如:
在onkeydown中,
keybd_event(down,0,0,0);
keybd_event(up,0,0,0);

 

宫

宫雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-23

• #8

以上几位兄弟
那一位有 GRIDEH 这个控件
我的 GRIDEH 少了一个文件无法使用
那一位给我发一份！！
email :dht@www.bjpeu.edu.cn

 

P

parable

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-24

• #9

GRIDEH 的BUG多多，特别是用多表头和自定义行宽时。
你要可以发给你，注意查收。

 

李

李颖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-05

• #10

多人接受答案了。

 

W

win1998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-16

• #11

Use InfoPower 2000 for d3, d4,d5

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-19

• #12

我没有得到分，是怎么回事？？？？？