Проблема с шириной столбцов в StringGrid

[Риндера]

Mad_Cat, спасибо, но я сделала гораздо короче))))

var myRect: TGridRect;
...
with myRect do 
   begin 
      Left := -1;
      Top := -1;
      Right := -1;
      Bottom := -1;
   end;

StringGrid1.Selection := myRect;

[Stilet]

Ты судя по всему девочка умная, так что тебе флаг в руки:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1StartDrag(Sender: TObject;
      var DragObject: TDragObject);
    procedure Button1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Button1EndDrag(Sender, Target: TObject; X, Y: Integer);
    procedure StringGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Types;

{$R *.dfm}

procedure TForm1.Button1StartDrag(Sender: TObject;
  var DragObject: TDragObject);
begin
//
end;

procedure TForm1.Button1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
end;

procedure TForm1.Button1EndDrag(Sender, Target: TObject; X, Y: Integer);
var crd:TGridCoord;r:TRect;
begin
   with StringGrid1 do begin
  crd:=MouseCoord(x,y);
  r:=CellRect(crd.x,crd.Y);
 end;
 with Button1 do begin
  top:=r.Top+StringGrid1.Top;
  Left:=r.Left+StringGrid1.Left;
  Width:=r.Right-r.Left;
  Height:=r.Bottom-r.Top;
 end;
end;

procedure TForm1.StringGrid1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
//
end;

end.

[Риндера]

Спасибо конечно, но это какой-то уж очень страшный флаг))))
У меня золотое правило: если работает - не трогай! Да и друг мой, жутейший тестер, багов не нашел на данном этапе

Но кодик разберу.

[Stilet]

У меня золотое правило: если работает - не трогай!

У меня тоже было такое правило пока однажды прога, которая работала превосходно в чуть-чуть других условиях не лажанула крепко, больше я правил не завожу.

багов не нашел на данном этапе

У вас несчастные случаи на работе были?... нет?... Будут!