Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Вниз

ДИНАМИЧЕСКОЕ МЕНЮ   Найти похожие ветки 

← →
SERG   (2003-12-03 02:38) [0]

КАК МНЕ В ПРОГРАММЕ СДЕЛАТЬ ДИНАМИЧЕСКОЕ МЕНЮ Т.Е.
ЧТОБ ПРИ ЗАГРУЗКЕ ПРОГРАММА ПРОВЕРЯЛА НАЛИЧИЕ В ПАПКЕ ФАЙЛОВ .TXT
И ЕСЛИ ИХ ТАМ 5 ШТ ДЕЛАЛА 5 СТРОК МЕНЮ С ИМЕНАМИ ЭТИХ ФАЙЛОВ
И КАК ОБРАБАТЫВАТЬ НАЖАТИЯ НА ЭТИ СОЗДАННЫЕ ПУНКТЫ МЕНЮ

---

← →
Maxud   (2003-12-03 02:45) [1]

1. Сканишь папку на наличие файлов и заносишь найденные в список.
2. Создаешь пункт меню с Caption = имя файла.
3. Подключаешь обработчик.
4. Если в списке есть еще файлы, то goto п.2

P.S. По какому пункту проблемы?
P.P.S. У тебя кажись клавиша CapsLock залипла :))

---

← →
SERG   (2003-12-03 02:48) [2]

А кусочек кода для народа:)
Уже отлипла:)

---

← →
SERG   (2003-12-03 03:05) [3]

Пункт 2 - Как создать
Пункт 3 - Как обработать

---

← →
Maxud   (2003-12-03 03:10) [4]

1. L - TStringList;
var SR: TSearchRec;
begin
if FindFirst(ExtractFilePath(ParamStr(0)) + "*.txt", faAnyFile, SR) = 0 then
begin
repeat
L.Add(ExtractFileName(SR.Name));
until FindNext(SR) <> 0;
FindClose(SR);
end;

2,3.
var MI: TMenuItem;
i: integer;
begin
for i := 0 to L.Count-1 do
begin
MI := TMenuItem.Create(MainMenu1);
MI.Caption := L[i];
MI.OnClick := MenuClick;
MainMenu1.Items.Add(MI);
end;
end;
...
procedure TForm1.MenuClick(Sender: TObject);
begin
end;


---

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

Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c