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

Inputs[i].OnContextPopup := MyEditPopup;

Inputs[i].Tag := i;

end;

for i := 0 to 4 do with PopupMenu1 do

begin

MyPopupMenuItem[i] := TMenuItem.Create(self);

if i<3 then MyPopupMenuItem[i].Caption := SortName[i];

MyPopupMenuItem[i].Tag := i;

MyPopupMenuItem[i].OnClick := MyPopupHandler;

PopupMenu1.Items.add(MyPopupMenuItem[i]);

end;

MyPopupMenuItem[3].Caption := '-';

MyPopupMenuItem[4].Caption := COPY_TO_CLIPBOARD;

MyPopupMenuItem[4].ShortCut := ShortCut(Word('C'), [ssCtrl]);

PopupMenu1.Items[0].Checked := true;

MenuItem := TMenuItem.Create(self);

MenuItem.Caption := PASTE_FROM_CLIPBOARD;

MenuItem.OnClick := MyPopupHandler2;

PopupMenu2.Items.add(MenuItem);

MyEditPopup(nil, Point(0,0), bool);

end;

procedure TPhoneForm.CalculateEditSize;

var

i: integer;

OffSet: integer;

begin

offset :=13;

for i := 0 to 4 do

begin