Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Помогите пожалуйста!   Найти похожие ветки 

 
Fraktall   (2002-06-18 21:38) [0]

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


Есть компонент 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-18 22:26) [1]

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


 
Fraktall   (2002-06-19 00:36) [2]

А как?
Так не получается_, что я не то делаю?

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


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


 
Deadlock   (2002-06-19 03:53) [3]

Бедненький! Тебе ж ясно сказали - сделай ИмажЛист, а при создании пункта меню делай так
Item.ImageIndex:=тут номер рисунка в листе;


 
Cobalt ©   (2002-06-19 09:42) [4]

Нет. Надо сначало Z:=TMenuItem.Create(PopUpMEnu1){!IMHO!}
А уже потом
Z.Caption := "";
Z.Hint := "";
Z.Bitmap.LoadFromFile("");
POPUPMENU1.Items.Add(Z);


 
Poirot ©   (2002-06-19 10:45) [5]


> Cobalt ©

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


 
Poirot ©   (2002-06-19 11:06) [6]


> Fraktall

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



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

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-1078
Fraktall
2002-06-18 21:38
2002.07.01
Помогите пожалуйста!


14-1161
Anatoly Podgoretsky
2002-05-29 21:04
2002.07.01
Книга по BASM


14-1200
MaximatorVeter
2002-05-24 20:52
2002.07.01
Кто знает какая существует самая серьезная разработка на Delphi?


14-1140
Феминистка
2002-05-25 13:19
2002.07.01
Мужики...


3-929
Tutov Roman
2002-06-07 13:42
2002.07.01
Почему зацикливается этот кусок кода ?