Текущий архив: 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.055 c
