procedure TForm1.Button4Click(Sender: TObject); var i: integer; begin for i := 0 to DBGrid1.Columns.Count - 1 do DBGrid1.Columns[i].Width := Length(DBGrid1.Columns[i].Field.Text) * FONCTIONATROUVER; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question