Помогите пожалуйста настроить TableGrid

Приветствую.

Можно скриптом при показе формы нажимать на кнопку "На текущую дату"

procedure MainForm_OnShow (Sender: TObject; Action: string);
begin
    MainForm.pCarrent.Click;
end;

Исправленный проект приложил к сообщению

Подскажите еще пару вещей не могу понять почему при нажатии чек бокса не отображается в таблице Да или Нет.
И непонятно как форматировать саму таблицу, чтобы выравнивание в разных колонках было разное и динамически не раздвигаются колонки если текст превышает ширину самой колонки.

На форме Plan компонент CheckBox не внесен в список сохраняемых компонентов в настройках кнопки "Записать"

Выравнивание в колонках задается автоматически, для текстовых - левое выравнивание, для числовых - правое выравнивание. При необходимости это можно изменить скриптом, в событии OnChange компонента TableGrid, пример

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
     // нумерация колонок с нуля 
     Form1.TableGrid1.Columns[0].Alignment := taRightJustify; // правое выравниение
     Form1.TableGrid1.Columns[1].Alignment := taCenter; // по центру
     Form1.TableGrid1.Columns[2].Alignment := taLeftJustify; // левое выравнивание
end;

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

При необходимости, скриптом можно сделать динамический размер колонок, в зависимости от текста в нем, пример

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.BestFitColumns(bfBoth);
end;

Документацию можно найти здесь
http://myvisualdatabase.com/help_ru/

Здесь можно прочитать введение в базы данных и в использование программы
http://myvisualdatabase.com/forum/viewtopic.php?id=2554

Доброго времени суток!

Этот способ работает только для Form1? Пробовал аналогичный код для другой формы (Form2), но не сработало. Общий код примерно такой:

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Alignment := taLeftJustify;
    Form1.TableGrid1.Columns[1].Alignment := taCenter;
    Form1.TableGrid1.Columns[2].Alignment := taCenter;
    Form1.TableGrid1.Columns[3].Alignment := taCenter;
end;

procedure Form2_TableGrid1_OnChange (Sender: string);
begin
    Form2.TableGrid1.Columns[0].Alignment := taLeftJustify;
    Form2.TableGrid1.Columns[1].Alignment := taCenter;
    Form2.TableGrid1.Columns[2].Alignment := taCenter;
    Form2.TableGrid1.Columns[3].Alignment := taCenter;
end;

begin
end.

И еще: если переименовать форму (ту же Form1, как само имя формы, так и в коде), то код также не работает. Так и должно быть? Если коротко, то у меня код работает только с одной Form1 и только если ее имя Form1.

Заранее спасибо за ответ!

Ах вот оно в чем дело... Признаюсь, не знал, что функции надо прописывать в событиях таблиц. Теперь все работает.
Еще раз спасибо!

Привет, Артисон,
Я думаю, вы не должны иметь «tablephonebook» в качестве компонента поиска
С Уважением,
Derek.