Курсовая работа: Информационно-аналитическая система "MTTS"

begin

capt.ShowModal;

end;

Программа для выполнения изменений шрифта:

procedure Tdd.N54Click(Sender: TObject);

begin

if dd.FontDialog1.Execute then

begin

main.DBGrid1.Font:=dd.FontDialog1.Font;

main.DBGrid2.Font:=dd.FontDialog1.Font;

main.DBGrid3.Font:=dd.FontDialog1.Font;

end;

end;

Программа для изменения размера таблиц:

procedure Tdd.N57Click(Sender: TObject);

begin

size.showmodal;

end;

2.10.Регистрация разговоров

На форме «MTTS страница «Абоненты» можно произвести регистрацию разговоров.

Программадлярегистрации:

procedure Tdd.N12Click(Sender: TObject);

begin

pereg.ShowModal;

end;

При нажатии на кнопку регистрация появляется следующая форма: