Книга: Создание базы данных Справочная кинотеатров на языке Турбо Паскаль

procedure TForm2.SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //Отображение в строке состояния

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //При наведении мышки на форму

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //Отображение в строке состояния

procedure FormCreate(Sender: TObject); //Процедура создания формы

procedure TForm2.FormCreate(Sender: TObject); //Процедураотображения данных о кинотеатрах

procedure SpeedButton7Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton7Click(Sender: TObject); //Процедура редактирования записи

procedure SpeedButton9Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton9Click(Sender: TObject); //Процедура сохранения редактирования

procedure SpeedButton1Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton1Click(Sender: TObject); //Процедура перехода на первую запись

procedure SpeedButton4Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton4Click(Sender: TObject); //Процедура перехода на последнюю запись

procedure SpeedButton2Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton2Click(Sender: TObject); //Процедура перехода на предыдущую запись

procedure SpeedButton3Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton3Click(Sender: TObject); //Процедура перехода на следующую запись

procedure SpeedButton5Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton5Click(Sender: TObject); //Процедура добавленияновой записи

procedure SpeedButton11Click(Sender: TObject); //При нажатии на кнопку

procedure TForm2.SpeedButton11Click(Sender: TObject); //Процедура отмены редактирования

procedure SpeedButton11MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer); //При наведении мышки на кнопку

procedure TForm2.SpeedButton11MouseMove(Sender: TObject); //Отображение в строке состояния