Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите пожалуйста!

Fraktall © (2002-06-18 21:38:00)
Помогите пожалуйста!

Есть компонент PopUpMenu1 есть кнопка, нужно при нажатии на нее сделать такое:

procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
begin
If FindFirst("C:\",FaAnyFile,SR)= 0 then
begin
{ Добавляем в меню еще один Item, его название должно быть Sr.Name, и картинка допустим с файла – C:\im.bmp, и подсказка любая!!! }
end;
end;

Как это можно сделать?

Poirot (2002-06-19 11:06:00) [1]

> Fraktall

Это постскриптум: Попробуй руки другим канцом применить.... всё работает на УРА... путь может всётаки правильный напишешь....

Poirot (2002-06-19 10:45:00) [2]

> Cobalt ©

Чмтай раньше... там про это ужо от мэне было...
а Я С ЛОДОМ НЕ СОГЛАСЕНТ.... ФУФНЯ ЭТО...

Cobalt (2002-06-19 09:42:00) [3]
Нет. Надо сначало Z:=TMenuItem.Create(PopUpMEnu1){!IMHO!}
А уже потом
Z.Caption := "";
Z.Hint := "";
Z.Bitmap.LoadFromFile("");
POPUPMENU1.Items.Add(Z);

Deadlock (2002-06-19 03:53:00) [4]
Бедненький! Тебе ж ясно сказали - сделай ИмажЛист, а при создании пункта меню делай так
Item.ImageIndex:=тут номер рисунка в листе;

Fraktall (2002-06-19 00:36:00) [5]
А как?
Так не получается_, что я не то делаю?

Z.Caption := ""; Z.Hint := ""; Z.Bitmap.LoadFromFile(""); POPUPMENU1.Items.Add(Z);

Ошибка лезет...

Poirot (2002-06-18 22:26:00) [6]
Ну и в чём проблем....
Создаёт копию класса Z:TMenuItem и тудпа пишем всё что надо и через
PopUpMEnu1.Items.Add(Z);
И вуаля...усё наместе... тока фрии не делай а то токачто созданный компонент сгорит с патрохами в ваших фантазих
с картинку в ИмажЛист добавляй и этот номер присваювай менюшке...
Можно конечно и порисовать, ео это как хотите...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »