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

procedure TPhoneForm.MInMaxSize(var Message: TMessage);

begin

with TwmGetMinMaxInfo(Message) do

begin

MinMaxInfo.ptMaxTrackSize.X := PhoneForm.Width;

MinMaxInfo.ptMaxTrackSize.y := Screen.Height- 100;

MinMaxInfo.ptMinTrackSize.X := PhoneForm.Width;

MinMaxInfo.ptMinTrackSize.y := 200;

end;

end;

procedure TPhoneForm.MyPopupHandler2(Sender: TObject);

begin

if Sender is TMenuItem then

if Clipboard.HasFormat(CF_TEXT) then

Inputs[PopupMenu2.Tag].Text := Clipboard.AsText;

end;

procedure TPhoneForm.MyEditPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);

begin

PopupMenu2.Items[0].Enabled := Clipboard.HasFormat(CF_TEXT);

if Sender is TEdit then PopupMenu2.Tag := (Sender as TEdit).Tag

end;

procedure TPhoneForm.N20Click(Sender: TObject);

begin

Application.HelpCommand(HELP_WM_HELP ,0);

end;

procedure TPhoneForm.N13Click(Sender: TObject);

begin

Table1.First;

end;