Добавление списка в меню

[ГОСЕАН]

Как сделать так, чтобы в меню добавлялись списки (5-10) последних использованных записей (например номера записи) таблицы и постоянно обновлялось

[Alex21]

Создаешь в меню в нужном месте 5-10 MenuItem'ов, в начале, пока они не заполнены, делаешь их невидимыми - ставишь Visible:=false;, и по мере заполнения их значениями делаешь их видимыми.
Перезаписывание значений делаешь путем сдвига вниз. Вот пример записи нового значнения:

var
  Form1: TForm1;
  N:array[1..10] of TMenuItem; {Массив из элементов меню}
  i:integer;
  str:string; {строка для вставки нового пункта}
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
{Добавляем в массив кнопки меню, кнопки, которые служат для
  записи имеют название в виде N001, N002, N003...}
for i:= 1 to 10 do
   N[i]:=form1.findComponent('N00'+inttostr(i))as TMenuItem;
for i:=1 to 10 do
   N[i].Caption:='#'+inttostr(i);{заполним левыми значениями}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize();
 str:='New '+inttostr(Random(100));  {строка содержащая всякий
скучный текст}
 
for i:= 10 downto 2 do
  begin
   N[i].Caption:=N[i-1].Caption; {со 2-го все сдвигаем вниз на 1}
  end;
  N[1].Caption:=str; {первому номеру присваиваем новое значение}
end;

[ГОСЕАН]

Сообщение от Alex21

Создаешь в меню в нужном месте 5-10 MenuItem'ов, в начале, пока они не заполнены, делаешь их невидимыми - ставишь Visible:=false;, и по мере заполнения их значениями делаешь их видимыми.
Перезаписывание значений делаешь путем сдвига вниз. Вот пример записи нового значнения:

var
  Form1: TForm1;
  N:array[1..10] of TMenuItem; {Массив из элементов меню}
  i:integer;
  str:string; {строка для вставки нового пункта}
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
 
begin
{Добавляем в массив кнопки меню, кнопки, которые служат для
 записи имеют название в виде N001, N002, N003...}
for i:= 1 to 10 do
   N[i]:=form1.findComponent('N00'+inttostr(i))as TMenuItem;
for i:=1 to 10 do
   N[i].Caption:='#'+inttostr(i);{заполним левыми значениями}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize();
 str:='New '+inttostr(Random(100));  {строка содержащая всякий
скучный текст}
 
for i:= 10 downto 2 do
  begin
   N[i].Caption:=N[i-1].Caption; {со 2-го все сдвигаем вниз на 1}
  end;
  N[1].Caption:=str; {первому номеру присваиваем новое значение}
end;

Очень интересно! А как тут организовать последние использованные строки таблицы, и при нажатии определенного пункта вызов формы содержащая именно эту запись?

[Alex21]

Смотря каким образом хранятся эти строки.Например, если хранятся номера записи, то в Caption i-го меню ставим IntToStr(номер записи), а при нажатии на кнопку меню вызываем обратный перевод, например:Есть несколько элементов списка, на которых написаны случайные цифры(50-500), при нажатии на любой из них позиция формы Left = этой цифре. Это как пример его можно приспособить к чему угодно. Выделяем (с Shift'ом) нужные элементы списка, и для всех (!) в событии OnClick вставляем:

Form1.Left:=StrToInt(Copy(((Sender as TMenuItem).Caption),2,Length((Sender as TMenuItem).Caption)));

Функция Copy используется потому, что значение Caption элементов меню имеет вид: "&123" - этим избавляемся от &-подчеркивания.

[ГОСЕАН]

простите меня, я кое-что непонял, в талице есть поле Nakt:numeric. необходимо в меню создать список из последних открытых или созданных номеров записи. при нажатии одного из них вызывается форма именно с этим номером записи. тут я не уловил увязку в вашем коде.

[Alex21]

Написал тут программку. не это ли вы хотели?
Не стал заморачиваться с БД, сделал на StringGride (принцип тот же).