Текущий элемент меню

← →
de. (2007-10-15 09:43) [0]

Как вернуть например Caption у текущего элемента меню на котором я кликнул...?
Пробовал так: GetItem(GetMenuIndex).Caption не получается пишет типа индекс меню выходит за допустимый диапазон.....
Как быть???

← →
de. (2007-10-15 09:49) [1]

Делаю так:
type { TMyMenuItem } TMyMenuItem = class(TMenuItem) private { Private declarations } protected { Protected declarations } public { Public declarations } procedure Click; override; published { Published declarations } end;

procedure TMyMenuItem.Click; begin if GetItem(GetMenuIndex) <> nil then if GetMenuIndex >0 then frmMain.Caption := GetItem(GetMenuIndex).Caption; end;

← →
Kolan © (2007-10-15 09:49) [2]

У меню нет текущего индекса, обрабатывай OnClick

← →
de. (2007-10-15 09:52) [3]

> Kolan © (15.10.07 09:49) [2]

Ну чтотож по идеи должно вернуть интерфейс TMenuItem...?
Или нет.? В чем моя ошибка.?

← →
de. (2007-10-15 10:01) [4]

Вот родительский обработчик (не переписанный).
procedure TMenuItem.Click; begin if Enabled then begin if (not Assigned(ActionLink) and AutoCheck) or (Assigned(ActionLink) and not (ActionLink.IsAutoCheckLinked) and AutoCheck) then Checked := not Checked; { Call OnClick if assigned and not equal to associated action"s OnExecute. If associated action"s OnExecute assigned then call it, otherwise, call OnClick. } if Assigned(FOnClick) and (Action <> nil) and (@FOnClick <> @Action.OnExecute) then FOnClick(Self) else if not (csDesigning in ComponentState) and (ActionLink <> nil) then FActionLink.Execute(Self) else if Assigned(FOnClick) then FOnClick(Self); end; end;
Чего полезного можно отсюда извлеч.?

← →
Kolan © (2007-10-15 10:02) [5]

> procedure TMyMenuItem.Click;

Во-первых где inherited?

Во-вторых MenuIndex(а зачем ты используешь геттер?) возвращает Integer, а не интерфейс.

> Или нет.? В чем моя ошибка.?

А чему равно MenuIndex, ты отладил?

← →
Kolan © (2007-10-15 10:06) [6]

> if GetItem(GetMenuIndex) <> nil then
> if GetMenuIndex >0 then
> frmMain.Caption := GetItem(GetMenuIndex).Caption;

Да и наверно нада сначала проверить что индекс валидный, а уж потом GetItem(GetMenuIndex)(опть же нафи геттер?)

← →
Игорь Шевченко © (2007-10-15 10:32) [7]

> procedure TMyMenuItem.Click;
> begin
> if GetItem(GetMenuIndex) <> nil then
> if GetMenuIndex >0 then
> frmMain.Caption := GetItem(GetMenuIndex).Caption;
> end;

procedure TMyMenuItem.Click;
begin
frmMain.Caption := Caption;
inherited;
end;

?

← →
de. (2007-10-15 10:54) [8]

> Игорь Шевченко © (15.10.07 10:32) [7]

8-O
Все генеальное просто... :-)))
Спасибо большое...!

← →
Юрий Зотов © (2007-10-15 16:23) [9]

И еще убрать амперсанды. Функция называется Strip-что-то-там, находится в Menu.pas.

> Функция называется Strip-что-то-там, находится в Menu.pas.

Что-то там - это tease ?

:))) Ща Розыч покажет кто тут главный по тизам :)

Да Розыча тут с полудня пятницы не проходило! :-)

Текущий элемент меню Найти похожие ветки