Я новичок в делфи :). Я сделал простое приложение, которое может писать и читать из базы данных SQL-сервера. Я показываю результаты запроса в DBGrid.
В настоящее время у меня есть только 3 столбца в моей БД (ID, имя, фамилия). DBGrid отображает их в таком виде, который мне не нравится. Я вижу ID (его ширина соответствует действительности) и Имя, которое растянуто до упора вправо, поэтому мне приходится использовать горизонтальную полосу прокрутки, чтобы увидеть Фамилию, которая также очень широкая.
Как я могу указать DBGrid настроить ширину столбцов на самую широкую строку?
Мое приложение выглядит так:
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text := 'INSERT INTO [dbo].[client] ([Meno],[Priezvisko]) ' +
'VALUES(:Meno, :Priezvisko)';
ADOQuery1.Parameters.ParamByName('Meno').Value := Edit1.Text;
ADOQuery1.Parameters.ParamByName('Priezvisko').Value := Edit2.Text;
ADOQuery1.ExecSQL;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery2.SQL.Text := 'SELECT * FROM [dbo].[client] WHERE Meno = :Meno';
ADOQuery2.Active := True;
ADOQuery2.Parameters.ParamByName('Meno').Value := Edit1.Text;
ADOQuery2.ExecSQL;
end;
end.
Я нашел это РУКОВОДСТВО, но согласно этому у вас нет двойного щелчка на выбранном столбце, чтобы настроить его ширину, и у меня также были проблемы с этой строкой
ColumnWidthHelper.MaxWidth := Max(ColumnWidthHelper.MaxWidth, DBGrid1.Canvas.TextWidth(Column.Field.DisplayText)) ;
Не распознает функцию Max
Любая помощь будет оценена по достоинству :)
