Удаление колонки в TStringGridDelphi , Компоненты и Классы , TStringGrid и TDrawGridУдаление колонки в TStringGrid
Оформил: DeeCo type TStringGridHack = class(TStringGrid) public procedure DeleteCol(ACol: Longint); end; var Form1: TForm1; implementation procedure TStringGridHack.DeleteCol(ACol: Longint); begin if ACol = FixedCols then if ACol = (ColCount - 1) then begin Cols[ACol].Clear; if ColCount(FixedCols + 1) then ColCount := (ColCount - 1); end else begin Cols[ACol] := Cols[ACol + 1]; DeleteCol(ACol + 1); end; end; Статья Удаление колонки в TStringGrid раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TStringGrid и TDrawGrid ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |