| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Размер формы [XP]

Steep ©   (2007-04-09 13:27:00) 

Как в реалтайме добавить пункты в pop-up меню?
(точнее добавить пункты в подменю?)
И повесить на них изменение текста в EditBox?
т.е. допустим в меню файл создаются последние файлы
и при выборе одного из них путь к файлу копируется в EditBox..

Procedure CopyToEdit(s: string);
begin
 Edit1.text := s;
end;

че-то совсем не нравится мне справка в 2006 Delphi -че-то все замучено...

---

Steep   (2007-04-09 14:08:00) [1]

Пасип! щас попробую ;)

---

Думкин   (2007-04-09 13:56:00) [2]

Если грубо.
File1: TMenuItem;

procedure TForm1.addFileExecute(Sender: TObject);
begin
    Caption := (Sender as TMenuItem).Caption;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a : TMenuItem;
begin
    a := TMenuItem.Create(File1);
    a.Caption := '123';
    a.onClick := addFileExecute;
    File1.Add(a);
end;

---

Steep   (2007-04-09 13:29:00) [3]

ой топик от предыдущего вопроса остался ;)
не обращайте внимания...

---

Наверх