Topic: из Button в Memo
имеется база данных которая содержит 15 имен, в форме есть 15 Button и одно Memo.
1. надо чтобы при нажатии на Button 1 в Memo было первое имя из базы данных, соответственно при нажатие второй кнопки второе имя из базы и тд.
2. при наведении курсора на Button 1 была Hint с первым именем из базы, т.е. то же самое как первый вопрос но тут должно быть подсказка с первым именем.
Как реализовать?
Примерно я так сделал:
procedure frmVibratOper_b1_OnClick (Sender: string; var Cancel: boolean);
var
Value1: string;
begin
Value1 := SQLExecute('SELECT operOne from operOne WHERE id=1');
frmVibratOper.Memo1.Text := Value1;
end;
Получился, но эту процедуру нужно записать к каждой кнопке, можно ли одной процедурой все это сделать?