Форум: "Начинающим";
Текущий архив: 2007.12.30;
Скачать: [xml.tar.bz2];
Вниз
Items в TMainMenu Найти похожие ветки
← →
Александр Семак (2007-12-06 05:35) [0]Как узнать номер Item"a (пункта меню) в компоненте TMainMenu по которому кликнули?
← →
Думкин © (2007-12-06 07:13) [1]procedure TMainForm.NClick(Sender: TObject);
var mm1,mm2 : TMenuItem;
begin
mm1 := TMenuItem(Sender);
mm2 := mm1.Parent;
Caption := IntToStr(mm2.IndexOf(mm1))
end;
← →
Александр Семак (2007-12-06 07:34) [2]спасибо
← →
Johnmen © (2007-12-06 09:28) [3]
> Думкин © (06.12.07 07:13) [1]
Что это??? :)
> Александр Семак (06.12.07 05:35)TMenuItem(Sender).MenuIndex
← →
Думкин © (2007-12-06 09:33) [4]> Johnmen © (06.12.07 09:28) [3]
function TMenuItem.GetMenuIndex: Integer;
begin
Result := -1;
if FParent <> nil then Result := FParent.IndexOf(Self);
end;
← →
Johnmen © (2007-12-06 09:41) [5]
> Думкин © (06.12.07 09:33) [4]
Я опять не понял, причем тут парент?
← →
Думкин © (2007-12-06 09:51) [6]> Johnmen © (06.12.07 09:41) [5]
Спроси у Борланда.
Или ты спрашиваешь, зачем я привел код, и в которм не сравнил родителя на пусто, а не воспользовался свойством. которое использует метод, который таки проверяет это? Привел, чтобы показать где это индекс сидит. Это преступление?
← →
Johnmen © (2007-12-06 09:56) [7]
> Думкин © (06.12.07 09:51) [6]
Нет.
Мне не понятно, зачем нужен парент, чтобы узнать индекс. в [1].
← →
Думкин © (2007-12-06 09:58) [8]> Johnmen © (06.12.07 09:56) [7]
А в [4] понятно? Я не понимаю тебя.
← →
Johnmen © (2007-12-06 10:02) [9]
> Думкин © (06.12.07 09:58) [8]
> Я не понимаю тебя.
Зачем так накручивать в [1], если это обработчик существующего пункта, а значит однозначно имеющего парент?
← →
Dib@zol © (2007-12-06 10:03) [10]Да чего мелочиться-то? MenuItemFromPoint и всех делов %)
← →
Думкин © (2007-12-06 10:04) [11]> Johnmen © (06.12.07 09:56) [7]
Я не спорю, что вместо того кода можно было привести одно свойство. Но я давно не писал на Дельфи и потому навскидку потыкал в то, как бы я искал индекс. Получилось то, что написал. Ты об этом спрашиваешь?
← →
Думкин © (2007-12-06 10:05) [12]
> Johnmen © (06.12.07 10:02) [9]
И что? Я ответил в 11?
← →
Johnmen © (2007-12-06 10:09) [13]
> Думкин © (06.12.07 10:05) [12]
Да.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.12.30;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c