请教:如何点击行里任意的cell 获得对这行里各cell的控制 give example thank!!! (30分)

  • 主题发起人 主题发起人 thomashukaidi
  • 开始时间 开始时间
T

thomashukaidi

Unregistered / Unconfirmed
GUEST, unregistred user!
如何点击行里任意的cell 获得对这行里各cell的控制 give example thank!!!
 
StringGrid?
 
说的不清楚呀
 
stringrid
点行中的任意cell 我可以得到这行里各cell的value

 
利用OnSelectCell事件
 
var i:integer;
CArrary : array[0..MAX_FORM_COUNT, 0..MAX_FORM_COUNT] of string;
while i:=0 to StringGrid1.ColCount-1
CArrary:=StringGrid1.Cells[i,StringGrid1.Row];
 
for example ok? thank!

比如我点cell[0,1] 同时得到cell[1,1]的value

用OnSelectCell可对行里cell控制? 这似乎是对grid全部的cell select控制
 
to bes96261
that's good idea!

但不写数组用stringgrid里的properties可以?
 
“比如我点cell[0,1] 同时得到cell[1,1]的value”???
 
同时cell[0,1]点击的语句怎么写
 
你到底要做什么?

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
ShowMessage(StringGrid1.Cells[ACol,ARow]);
end;
 

我点cell[0,1] 得到cell[1,1]的value
或者我点cell[0,3]得到cell[3,3]的value

that's i want
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
ShowMessage(StringGrid1.Cells[ARow,ARow]);
end;
 
var s:string;
if StringGrid1.ColCount-1>=StringGrid1.Row+2 then
s:=StringGrid1.Cells[StringGrid1.Row+2,StringGrid1.Row];
至於加多少,根據你的算法定
 
多人接受答案了。
 
可用StringGrid1GetEditMask()事件吧
 
后退
顶部