Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

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

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

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;

Название: Контекстное меню на основе базы данных
Дата публикации: 2004-03-19 (2692 Прочтено)

 
 

 

Page generation 0.033 seconds