DbGridEh操作(50)

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #1

我的界面上放了一个DbGridEh和一个StringGrid， 我想在焦点在离开DbGridEh某一列的时候，StringGrid获得焦点，当光标移动到StringGrid的时候，DbGridEh的最后一行的某一列获得焦点，该怎么做

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #2

procedure TForm1.DBGridEh1SelectionChanged(Sender: TObject);begin stringgrid1.SetFocus;end;procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin dbgrideh1.datasource1.dataset.last;end;

 

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #3

楼上，如何判断焦点处于StringGrid的最后一格

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #4

function TForm1.grid_setfoucs(grid:tstringgrid):boolean;begin if (grid.row=grid.RowCount-1) and (grid.col=grid.ColCount-1) then result:=true else result:=false;end;procedure TForm1.StringGrid1Click(Sender: TObject);begin if grid_setfoucs(StringGrid1)=true then showmessage('最后一格');end;

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #5

或者直接在StringGrid1SelectCell事件中判断procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);begin if (Acol=StringGrid1.RowCount-1) and (acol=StringGrid1.ColCount-1) then showmessage('最后一格'');end;

 

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #6

楼上，如何判断焦点处于StringGrid的最后一格

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #7

这个就是啊~~~procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);begin if (Acol=StringGrid1.RowCount-1) and (acol=StringGrid1.ColCount-1) then showmessage('最后一格'');end;

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #8

你要的是最后一行？ 还是最后一列？还是最后一格？

 

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #9

如何让StringGrid中的某个单元格获得焦点和如何知道当前单元格的Col， Row 值

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #10

StringGrid1.row;//当前行StringGrid1.col;//当前列

 

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #11

你的qq？ 打算给你加分

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #12

不好意思~~公司不让上QQ~~

 

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #13

如何比较两个StringGrid的cell中内容是否一样

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-06

• #14

如果两个stringgrid行列都相同for i:=0 to stringgrid1.colcount do for j:=0 to stringgrid1.rowcount do if stringgrid1.cel[i,j]<>stringgrid2.cel[i,j] then showmessage('数据不同']) else

 

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-29

• #15

接受答案了.