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

Вниз

Подскажите, как можно "объеденить" TMenu и TMenuItem   Найти похожие ветки 

← →
Leaner ©   (2004-10-13 15:41) [0]

Написал две процедуры:
function IsNeedMenuItem(const Item:TMenuItem;const   aCaption:string;Tag:integer):Boolean;
begin
Result:=((Tag=-1) or (Item.Tag=Tag)) and (CompareText(Item.Caption,aCaption)=0);
end;

function FindFirstItem(const BaseMenu:TMenu;const aCaption:string;const ItemTag:integer):TMenuItem;
var
i:integer;
begin
Result:=nil;
if (aCaption="") or (BaseMenu=nil) then Exit;
for i:=0 to BaseMenu.Items.Count-1 do
 if IsNeedMenuItem(BaseMenu.Items[i],aCaption,ItemTag) then
   begin
    Result:=BaseMenu.Items[i];
    Exit;
   end;
end;

function FindSubItem(const BaseItem:TMenuItem;const aCaption:string;const ItemTag:integer):TMenuItem;
var
i:integer;
TempItem:TMenuItem;
begin
Result:=nil;
if (aCaption="") or (BaseItem=nil) then Exit;
TempItem:=BaseItem;
for i:=0 to TempItem.Count-1 do
 if IsNeedMenuItem(TempItem.Items[i],aCaption,ItemTag) then
   begin
    Result:=TempItem.Items[i];
    Exit;
   end;
end;
Как бы мне из них сделать одну универсальную ?

---

← →
Erik1 ©   (2004-10-13 16:04) [1]

А может ты еще напишеш, чего тебе надо? Вобщето на форумах принято вопросы задавать, а не ребусы для разгадки выкладывать. Хотя если телепаты подтянутся..........

---

← →
Erik1 ©   (2004-10-13 16:05) [2]

А может ты еще напишеш, чего тебе надо? Вобщето на форумах принято вопросы задавать, а не ребусы для разгадки выкладывать. Хотя если телепаты подтянутся..........

---

← →
Leaner ©   (2004-10-13 16:11) [3]

>Erik1
Вопрос задан в последней строке поста.

---

← →
Amoeba ©   (2004-10-13 16:29) [4]

> Как бы мне из них сделать одну универсальную ?

А какой в этом смысл? Зачем все сваливать в одну кучу?

---

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

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

Наверх

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