Скачать: CL | DM;

В StringGrid необходимо удолить строку, но при этом, данные, нахо   Найти похожие ветки 

← →
segor   (2003-08-12 23:27) [0]

В StringGrid необходимо удолить строку, но при этом, данные, находящиеся снизу, должны переместиться выше.(Точно как при работе в Exсel).

---

← →
JohnJ ©   (2003-08-13 01:05) [1]

Странно... А подумать не пробовал?

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
with StringGrid1 do
begin
j:=Row;
for i:=j to RowCount-1 do Cells[0,i]:=Cells[0,i+1];
Cells[0,RowCount]:="";
if RowCount>StartRowCount then RowCount:=RowCount-1;
end;
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.031 c