Курсовая работа: Базы данных. Создание программы Телефонный справочник

CalculateEditSize;

UpDateStatusBar;

ReadIni;

Application.onMessage := Aom;

Application.HelpFile := sHelpFile;

end;

procedure TPhoneForm.MyPopupHandler(Sender: TObject);

begin

if Sender is TMenuItem then with (Sender as TMenuItem) do

begin

case tag of

0..2: begin Table1.IndexName := IndexName[(Sender as TMenuItem).tag ];

SortMode(Sender);

end;

4: Clipboard.AsText := DBGrid1.SelectedField.DisplayText;

end;

UpdateStatusBar;

end;

end;

procedure TPhoneForm.CreatePopupFields;

var

i: integer;

MyPopupMenuItem : array [0..4] of TMenuItem;

MenuItem: TMenuItem;

begin

for i := 0 to 4 do

begin

Inputs[i] := TEdit.Create(self);

Inputs[i].Parent := GroupBox1;