Текущий архив: 2003.12.12;
Скачать: CL | DM;
Вниз
ДИНАМИЧЕСКОЕ МЕНЮ Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
