StringGrid: прикрепить правый край последнего столбца к краю таблицы

Хохол

Двигаю последний столбец влево - справа от него образуется пустота. Как сделать так, чтобы его правый край был прибит к краю таблицы?
4 ответа

Хохол

Следите за шириной столбца: или вручную или программно!


Хохол

Обрабатывайте событие отпускания кнопки мышки на таблице:
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
    i,m: integer;
  begin
    m:= 0;
    for i:= 0 to StringGrid1.ColCount-1 do
      m:= m+StringGrid1.ColWidths[i];
    StringGrid1.Width:= m+4+StringGrid1.ColCount;
  end;


Хохол

Следите за шириной столбца: или вручную или программно!
Следить вручную - это бить пользователя по руке, забирать мышь и расширять столбец?


Хохол

Следить вручную - это бить пользователя по руке, забирать мышь и расширять столбец?
Просто раздвигать вручную!