Вопрос про меню

← →
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;

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]

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

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