Grid Kolon Değişikliği

Özel Ekranda Grid Kolon Genişliği 

Adım1 :

Grid’in BtSQL cümlesi yazılır, BtRun ile çalıştırılır.

function GetColumnIndex(Grd:TBtMyGrid;Name:String):Integer;

begin       

 try

  result := TBtMyGrid(Grd).FindColumn(Name).Index;

 Except result := -1; end;       

end;

procedure Form2Show(Sender: TObject);

Var Ind : Integer;

begin            

 Ind := GetColumnIndex(BtMyGrid1,'CARI_ADI');

if Ind <> -1 then                                            

    BtMyGrid1.GetColumn(Ind).Width := 70;                

end;