на форме 2 StringGrid: в StringGrid1 я загружаю данные из Excel, потом по нажатию кнопки в StringGrid2 должны отобразиться суммы столбцов из StringGrid1
т.е сложить соответствующие данные в столбцах
(2:3+2:6+2:9) и вывести в StringGrid2 (читать всё…)

Как сделать, чтобы после изменения значения в ячейке Стринг Грида (goEditing = true) произошло какое-то действие? У меня таблица(Stringgrid) 8*7. И мне пришлось сделать 56 условий (по кол-ву ячеек) по нажатию клавиши Enter. Вводится число в ячейку и по нажатию клавиши ввод оно суммируется с ранее введенным, если раннее не вводилось то 0. (читать всё…)

Marsel737

Подскажите как сделать чтоб можно было во время выполнения программы включать или выключать возможность редактирования StringGrid’а.
П.С.: Как делать это через инспект объектов я знаю

(читать всё…)

Есть StringGrid, после того, как открыть в него то, что я сохранил и начать добавлять еще строки с информацией, то старые стираются. Как сделать чтобы они добавлялись дальше, а не стирали прежние строки? (читать всё…)

Как сделать, чтобы по кнопке удалялась последняя строка в StringGrid? (читать всё…)

Как закрасить активную ячейку StringGrid? (читать всё…)

Как отсортировать первую колонку по алфавиту в StringGrid, чтобы значения остались прежними?

pu4koff

Сортировка вызывается так:
GridSort(StringGrid1, 0);

procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer);

var

  Line, PosActual: Integer;

  Row: TStringList;

  Renglon :TStringList;

begin

  Renglon := TStringList.Create;

  Row := TStringList.Create;

  for Line := 1 to StrGrid.RowCount-1 do

  begin

    PosActual := Line;

    Row.Assign(StrGrid.Rows[PosActual]);

    while True do

    begin

      if (PosActual = 0) or

         (Row.Strings[NoColumn] >= StrGrid.Cells[NoColumn,PosActual-1])

        then break;

      StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1];

      Dec(PosActual);

    end;

    if (Row.Strings[NoColumn] < StrGrid.Cells[NoColumn,PosActual])

      then StrGrid.Rows[PosActual].Assign(Row);

  end;

  Row.Free;

  Renglon.Free;

end;

Австрийская компания iTap mobile выпускает RDP-клиенты — программы для подключения к настольному компьютеру Windows с мобильных устройств или компьютеров с другими операционными системами по протоколу удаленного рабочего стола. iTap mobile RDP для систем Mac или Linux предоставляет полный контроль и быстрый доступ к настольному компьютеру на платформе Windows отовсюду. iTap mobile поддерживает TS Gateway и является быстрым, безопасным и оптимизированным решением для дома и бизнес-нужд. Мощный RDP-клиент также сопровождается первоклассной технической поддержкой.

купить Itap-mobile RDP Client

тема на форуме

На форме лежат StringGrid (1 фиксированная строка + 1 пустая, 3 столбца), 3 Edit’a и Кнопка. По нажатию кнопки в Грид нужно записать содержимое Едитов (соответственно к каждой ячейке свой Эдит). При следующем нажатии, необходимо добавить строку, и записать новые значения из Эдитов, и так далее… Как это можно реализовать ?

DenProx

var x,y : integer;

begin

 y := RzStringGrid1.RowCount -1;

 x:=0;

 RzStringGrid1.Cells[x,y]:= IntToStr(RzStringGrid1.RowCount -1);

 inc(x);

 RzStringGrid1.Cells[x,y] := Edit1.Text;

 inc(x);

 RzStringGrid1.Cells[x,y] := Edit2.Text;

RzStringGrid1.RowCount := RzStringGrid1.RowCount + 1;

y:=0;

Корпусная мебель оптом от российского производителя.

тема на форуме

Нужно, чтобы на событии OnSelectCell, т.е. при переключении с ячейку на ячейку, в ячейке где ввод данных завершился, т.е. предыдущая ячейка относительно выбранной — если содержимое = ‘ ‘, то заменить его на ‘н/а’. Как? (читать всё…)

Как в Делфи из колонки Грида превратить текст в ссылку, чтобы можно было открыть веб-страницу? (читать всё…)