Форум: "Основная";
Текущий архив: 2003.12.16;
Скачать: [xml.tar.bz2];

Вниз

Вопрос про меню   Найти похожие ветки 

← →
Anton.   (2003-12-03 13:36) [0]

NewItems[k]:=TMenuItem.Create(fMain);
NewItems[k].Caption := "xx";
(FindComponent(dsQueryPLUGIN_TYPE.Value) as TMenuItem).Add(NewItems[k]);

а хотелось бы избавится от переменной NewItems

with TMenuItem.Create(fMain) do begin
Caption := "xx";
end
(FindComponent(dsQueryPLUGIN_TYPE.Value) as TMenuItem).Add(???);

что в Add поставить?

---

← →
Юрий Федоров   (2003-12-03 14:09) [1]

Ничего не подставить...
Ничего страшного в новой переменной нет

---

← →
Anton.   (2003-12-03 14:18) [2]

А добавлять то что в последнем случае? Может я вопрос не коректно задал, мне нужно избавтся и от NewItems и от k

---

← →
panov   (2003-12-03 17:59) [3]

У тебя все сделано правильно, только непонятно, для чего массив сделан.

---

← →
хамло   (2003-12-03 18:05) [4]

Creates and initializes a menu item.

function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: Word; const AName: string
): TMenuItem;

---

← →
Семен Сорокин   (2003-12-03 18:07) [5]

type
TxxMenuItem = class(TMenuItem);
public
constructor Create(AOwner: TComponent); override;
end;

constructor TxxMenuItem.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Caption := "xx"
end;

(FindComponent(dsQueryPLUGIN_TYPE.Value) as TMenuItem).Add(TxxMenuItem.Create(fMain));

:))

---

← →
хамло   (2003-12-03 18:17) [6]

кажется вопрос прошел мимо моего интеллекта? ))

---

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

Форум: "Основная";
Текущий архив: 2003.12.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c