Текущий архив: 2009.07.26;
Скачать: CL | DM;

Вниз

TMenuItem   Найти похожие ветки 

← →
Максим   (2009-06-01 13:57) [0]

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

---

← →
clickmaker ©   (2009-06-01 14:00) [1]

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

---

← →
Palladin ©   (2009-06-01 14:03) [2]

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

---

← →
Юрий Зотов ©   (2009-06-01 14:04) [3]

> Максим   (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) [4]


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;


---

Страницы: 1 вся ветка

Текущий архив: 2009.07.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c