Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

StringGrid   Найти похожие ветки 

← →
проходил мимо заглянул   (2006-02-15 14:07) [0]

Доброго времени суток. Есть проблема, необходимо удалить некоторые столбики из StringGrid. Подскажите пожалуйста как это сделать, чтобы столбик удалялся и данные смещались справа на лево.

---

← →
КиТаЯц ©   (2006-02-15 14:13) [1]

Вот:

type
 TCSGrid = class(TStringGrid)
 private
 public
   procedure MoveRow   (FromIndex, ToIndex: Longint);
   procedure MoveColumn(FromIndex, ToIndex: Longint);
 end;
...

procedure TImpForm.DeleteColumn(Sender: TStringGrid; FromIndex: Longint);
begin
if FromIndex >= 0
 then  with TCSGrid(Sender) do
   if (ColCount > 0)and(FromIndex < ColCount)
     then begin
       if (FromIndex<ColCount-1)
         then MoveColumn(FromIndex, ColCount-1);
         Cols[ColCount-1].Clear;
         ColCount:= ColCount-1;
     end else MessageBeep(0)
 else MessageBeep(0);
end;

procedure TCSGrid.MoveColumn(FromIndex, ToIndex: Longint);
begin
 ColumnMoved(FromIndex, ToIndex); //Защищенный метод TStringGrid
end;


зы. Выб это... зарегистрировались...

---

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

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.038 c