| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TMenuItem

Максим ©   (2009-06-01 13:57:00) 

Как присвоить TMenuItem метод, который будет выполняться при нажатии на этот пункт меню?

---

Юрий Зотов   (2009-06-01 14:04:00) [1]

> Максим   (01.06.09 13:57)  


procedure TForm1.MenuItem1Click(Sender: TObject);
...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 MenuItem1.OnClick := MenuItem1Click;
end;

---

Ega23   (2009-06-01 14:04:00) [2]


procedure TGUICustomAdminTreeFrame.AddMenuItems;
var
mi:TMenuItem;
ms:TMemoryStream;
begin
 With adsClasses do
  begin
   First;
   While not Eof do
    begin
     mi:=TMenuItem.Create(nil);
     mi.Caption:=FieldByName('CLSLab').AsString;
     mi.Tag:=FieldByName('CLSID').AsInteger;
     if not FieldByName('ImgData').IsNull then
      begin
       ms:=TMemoryStream.Create;
       try
        TBLOBField(FieldByName('ImgData')).SaveToStream(ms);
        ms.Position:=0;
        mi.Bitmap.LoadFromStream(ms);
       finally
        ms.Free;
       end;
      end;

     mi.OnClick:=MenuItemClick;

     miCreateObject.Add(mi);

     Next;
    end;
  end;
end;


---

Palladin   (2009-06-01 14:03:00) [3]

При помощи оператора приравнивания.

---

clickmaker   (2009-06-01 14:00:00) [4]

OnClick
альтернатива - через Action

---

Наверх