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

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

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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com