Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> X и Y программы... хотел спросить такую вещь... 
:(
    Опции темы
JohnnY
Дата 31.8.2005, 00:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет



Я написал программу, она прописывается в автозагрузку, и хотел спросить такую вещь...

Я запустил программу
Переместил её форму в какое-нибудь другое место на рабочем столе...
Как можно сделать так чтобы при изменении местоположения формы прописывалось новое местоположение в ini файле и при повторном запуске программы она появлялась на новом местоположении ( извините за тавтологию)... Спасибо...
PM MAIL WWW   Вверх
FRAGNATIC
Дата 31.8.2005, 00:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11



Left
Top
запоминаешь при закрытиии форым
при запуске считываешь из ини их и устонавливаешь у формы парметнры left и top в те что считал!
Добавлено @ 00:09
Код

Uses
   IniFiles;
------------
var
    F: TIniFile;
------------
procedure TForm1.FormCreate(Sender: TObject);
begin
 F := TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini');
 if F.ReadBool('FormPosition','Maximized',true) then begin
  Form1.WindowState:=wsMaximized;
 end
 else begin
  Form1.Width:=F.ReadInteger('FormSize','Width', Form1.Width);
  Form1.Height:=F.ReadInteger('FormSize','height',Form1.Height);
  Form1.Top:=F.ReadInteger('FormPosition','top',Form1.top);
  Form1.Left:=F.ReadInteger('FormPosition','left',Form1.Left);
 end;
end;
-----------------
procedure TForm1.FormDestroy(Sender: TObject);
begin
  F := TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini');
  if Form1.WindowState=wsMaximized then
   f.Writebool('FormPosition','Maximized',true)
  else begin
   F.WriteInteger('FormPosition','top',Form1.top);
   F.WriteInteger('FormPosition','left',Form1.Left);
   F.WriteInteger('FormSize','Width', Form1.Width);
   F.WriteInteger('FormSize','height', Form1.Height);
   f.Writebool('FormPosition','Maximized', false)
  end;
end;

ток ини сакс)
PM MAIL   Вверх
Alex
Дата 31.8.2005, 00:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162



FRAGNATIC, если уж и сохранять настройки программы запущенной с CD, то ни как не в папке программы, т.к. вам ни кто не дас записать на диск данные. Или пишите на жеский диск настройки, а лучше храните их в реестре


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
FRAGNATIC
Дата 31.8.2005, 00:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11



Цитата
FRAGNATIC, если уж и сохранять настройки программы запущенной с CD, то ни как не в папке программы, т.к. вам ни кто не дас записать на диск данные. Или пишите на жеский диск настройки, а лучше храните их в реестре

гы я ваще настройки в реестре храню!
ни где мне говорилось что прога с СД запускается ) я думаю такое самому можно предусмотреть)
и я же написал что ини сакс)
но был вопрос как в ини я ответил)
Добавлено @ 00:21
Alex
а где про СД тут говорится? я понимаю надо всё предусмотреть то я думаю если автор темы сам поймёт что да как! )
я конечно ща плохо сооброжаю но вот то что тут конкретно про СД не писали я вроде вижу)а вы грите как будно это было жестким критерием по кторому я должен был ответить)
П.С
сам не понял чё я написал) smile
PM MAIL   Вверх
Alex
Дата 31.8.2005, 00:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162



smile заработался, извиняюсь. Уже автозагрузку как запуск с CD воспринимаю smile


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
FRAGNATIC
Дата 31.8.2005, 00:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11



Цитата
заработался, извиняюсь. Уже автозагрузку как запуск с CD воспринимаю

smile бывает) не столь страшно это излечимо парой часов сна)))
PM MAIL   Вверх
JohnnY
Дата 31.8.2005, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет



FRAGNATIC, большое спасибо!!!
smile FRAGNATIC, с помощью тебя я очень многому научился... Спасибо... smile
PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0652 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.