Форум: "Начинающим";
Текущий архив: 2009.07.26;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c