|
Вопрос # 4 679/ вопрос открыт / |
|
Здравствуйте, эксперты!
Вопрос по сохранению конфигурации меню или контекстного меню в ini. файле(если это невозможно, то другой приемлемый вариант), чтобы динамически создаваемые пункты меню присутствовали при повторном запуске программы.
Спасибо.
Приложение: Переключить в обычный режим- procedure TForm1.FormCreate(Sender: TObject);
- var
- Ini: Tinifile;
- begin
-
- Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini');
- Form1.Left:=Ini.ReadInteger('Position','X',100);
- Form1.Top:=Ini.ReadInteger('Position','Y',10);
-
- Ini.Free;
- end;
-
- procedure TForm1.FormDestroy(Sender: TObject);
- var
-
- begin
-
- Ini:=TiniFile.Create(extractfilepath(Application.ExeName)+'Ini.ini');
- Ini.WriteInteger('Position','X',form1.left);
- Ini.WriteInteger('Position','Y',form1.top);
-
-
- Ini.Free;
- end;
-
- procedure TForm1.Button1Click(Sender: TObject);
- var NewItem: TMenuItem;
-
- begin
-
-
-
- NewItem:=TMenuItem.Create(self);
-
-
-
- NewItem.Action:=Action1;
-
-
-
- NewItem.Caption:=Edit1.Text;
-
-
-
- PopupMenu1.Items.Add(NewItem);
- end;
-
-
- procedure TForm1.Action1Execute(Sender: TObject);
- begin
- Edit1.Text:='';
- end;
-
- end.
 |
Вопрос задал: Волков (статус: Посетитель)
Вопрос отправлен: 25 октября 2010, 01:59
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 28 октября 2010, 01:07; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 25 октября 2010, 08:13 [#1]:
Настоятельно НЕ рекомендую использовать для этих целей INI-файл, ибо меню - это древовидная структура. Здесь больше подойдёт XML.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 25 октября 2010, 10:29 [#2]:
может и подойдет xml, нужно выслушать вопрошающего. Может ему 3-5 пунктов сохранить нужно.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
bugmenot (статус: 3-ий класс), 27 октября 2010, 18:04 [#3]:
я dfm-подобный формат заюзал. см. TStream.WriteComponent()
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
Волков (статус: Посетитель), 28 октября 2010, 01:07 [#4]:
Спасибо за советы.
Порылся в интернете по поводу xml, но никакого материала доступному мне не нашел, 3-5 пунктов конечно не хватит,
смотрю TStream.WriteComponent, надеюсь что нибудь получиться.
Спасибо всем.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
