Контекстное меню на основе базы данных

Советы » Компоненты и Базы данных » Контекстное меню на основе базы данных

var
  m: TMenuItem;
  navidummy: TComponent;
  ..........................................................

  procedure
 TMyForm.CreatePopUpMM(Sender: TObject);
begin


  Navidummy.free;
  Navidummy := TComponent.create(self);

  while
 not
 NaviT.EOF do

  begin

    m := TMenuItem.create(navidummy);
    II := II + 1;
    with
 m do

    begin

      name := 'MM' + IntToStr(II);
      caption := NaviT.Fieldbyname('MyWHAT').AsString;
      tag := NaviT.Fieldbyname('MyTAG').AsInteger;
      visible := True
;
      OnClick := NaviExec;
    end
;
    MyMenuItem.add(m);
    NaviT.Next;
  end
;
  NaviT.Close;
end
;

procedure
 TMyForm.NaviExec(Sender: TObject);
begin

  { Здесь я получаю то, что хочу ! }
  What.text := (Sender as
 TMenuItem).Caption;
  Key := (Sender as
 TMenuItem).Tag;
end
;

Контекстное меню на основе базы данных

Другое по теме:

Категории

Статьи

Советы