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

Offset := Offset + DbGrid1.Columns[i].width + 8;

Inputs[i].Width := DBGrid1.Columns[i].width;

Inputs[i].Top := 24;

Inputs[i].MaxLength :=Table1.Fields[i].Size;

end;

end;

procedure TPhoneForm.UpdateStatusBar;

var SortMode: string;

begin

statusBar1.Panels[0].Text := ' Найденоабонентов: '+ InttoStr(Table1.RecordCount);

Sortmode := SortName[0];

if PopupMenu1.Items[1].Checked then sortMode := SortName[1];

if PopupMenu1.Items[2].Checked then sortMode := SortName[2];

statusbar1.Panels[1].Text := ' Отсортировано: '+SortMode;

end;

procedure tPhoneForm.AOM(var Msg: tagMSG; var Handled: Boolean);

var key : word;

begin

handled := false;

if msg.message = Wm_keydown then

begin

key := msg.wParam;

handled := true;

case key of

vk_up: SendMessage(DBGrid1.Handle,wm_keydown, vk_up, 0);

vk_Down: SendMessage(DBGrid1.Handle,wm_keydown, vk_down, 0);

vk_Prior: SendMessage(DBGrid1.Handle,wm_keydown, vk_Prior, 0);

vk_Next: SendMessage(DBGrid1.Handle,wm_keydown, vk_Next, 0);

vk_return: Search.OnClick(Search);