StringGrid
проходил мимо заглянул © (2006-02-15 14:07:00)
Доброго времени суток. Есть проблема, необходимо удалить
некоторые столбики из StringGrid. Подскажите пожалуйста как это
сделать, чтобы столбик удалялся и данные смещались справа на
лево.
КиТаЯц (2006-02-15 14:13:00) [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;
зы. Выб это... зарегистрировались...
Наверх 
ЧАТ |
Орешник |
|
