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

Вниз

Размер формы   Найти похожие ветки 

← →
Steep ©   (2007-04-09 13:27) [0]

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

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

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

---

← →
Steep ©   (2007-04-09 13:29) [1]

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

---

← →
Думкин ©   (2007-04-09 13:56) [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 14:08) [3]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.041 c