Размер формы

← →
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;

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

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