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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как при генерации главной форми с модальной снять, снять значения с Едит полей ? 
V
    Опции темы
Mersik
  Дата 3.4.2007, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: 1
Всего: 0
как при генерации главной форми с модальной снять значения с Едит полей ?

 smile 
PM MAIL WWW   Вверх
_hunter
Дата 3.4.2007, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 98
просто пишеш znachenie = modalnayaForma.EditPole.Text;


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Mersik
Дата 3.4.2007, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: 1
Всего: 0
v Form.Create ?
PM MAIL WWW   Вверх
Snowy
Дата 3.4.2007, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484
Где вызываешь, там и бери.
Код

  modalnayaForma.ShowModal;
  znachenie := modalnayaForma.EditPole.Text;
PM MAIL   Вверх
Yanis
Дата 3.4.2007, 20:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 111
Код
if frmModal.ShowModal = mrOk then
  ShowMessage(frmModal.Edit1.Text);



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Mersik
  Дата 4.4.2007, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: 1
Всего: 0
Мммм простите что я не умею обьяснять ! Так воот ! На модальной форме список параметров с начальними значениями в Едит полях, когда я запускаю программу я хочу считать ети параметри с Едит полей в переменние (параметри напоминаю находятся на модальной форме) ! Так вот я не знаю где прописать их считивание ! На Форм.Креате низя так как модальная еще не появилась! 

Смисл другими словами ! smile 

Загрузается при запуске программи Маин Форм и автоматически считались значения переменних с модальной форми!  То есть я сразу могу приступать к каким то вичислениям с главной форми !

ВОПРОС : Где считать ? smile 

Пост.Скпиптум. smile 
Как считать я знаю, но всё равно спасибо !

 smile

Добавлено через 1 минуту и 8 секунд
ВОПРОС : Где считать значения  ?  
PM MAIL WWW   Вверх
Yanis
Дата 4.4.2007, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 111
Mersik
Так если форма создаётся после создания главной формы, то значит какие-то значения там уже прописаны! Почему бы не инициализировать переменныи такими же значениями?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Mersik
Дата 4.4.2007, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: 1
Всего: 0
Простите а Инициализироватй ето как ! Только не злитесь, я учусь ! 

 smile 
PM MAIL WWW   Вверх
Yanis
Дата 4.4.2007, 11:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 111
Код
procedure frmMain.OnCrete(...);
begin
  моя_переменная := такое_же_значение_как_и_в_edit-е
end;



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Mersik
Дата 4.4.2007, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: 1
Всего: 0
Так а если я поменяю в модальной форме параметри надо будет вручную и начальние параметри исправлять?  Хммм, мне то не сложно, но как ето пользователй сделает ?
PM MAIL WWW   Вверх
ama_kid
Дата 4.4.2007, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


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

Репутация: 9
Всего: 95
Mersik
Цитата(Mersik @  4.4.2007,  11:25 Найти цитируемый пост)
Хммм, мне то не сложно, но как ето пользователй сделает ?

А с какого бодуна пользователи имеют доступ к дизайн-тайму твоего приложения?
И вообще, инициализирующие значения нельзя хранить в компонентах на форме. Их надо хранить, либо в реестре, либо в инишнике, и при загрузке - считывать, а если нет - устанавливать по умолчанию...




--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Mersik
Дата 4.4.2007, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: 1
Всего: 0
Мммммм ! понятно ! а как в Ини сохранить или можно в ТХТ ? Ето одно и то же ?
PM MAIL WWW   Вверх
ama_kid
Дата 4.4.2007, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


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

Репутация: 9
Всего: 95
Смотри хелп по TIniFile, TRegistry... Можешь хранить в TXT, и вообще, где тебе удобно, просто в обычном файле самому придется прописывать структуру данных... Главное, чтобы ты при запуске мог получить доступ к сохраненным элементам...


--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Mersik
Дата 4.4.2007, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: 1
Всего: 0
Кинь пример использования ! Запись , чтение из Регистр ?

 smile 
PM MAIL WWW   Вверх
ama_kid
Дата 4.4.2007, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


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

Репутация: 9
Всего: 95
Цитата
Запись , чтение из Регистр
Не регистр, а реестр... smile
Ну, лови пример:
Код
Unit Init;
interface
uses
  Windows, Registry;

var
  Reg         : TRegistry;
  MyParam : integer;

procedure ReadReg;
procedure SaveReg;

implementation

procedure ReadReg;
begin
  Reg.OpenKey('\Software\...\SubKey',true);
  MyParam:=0; 
  try 
    MyParam:=Reg.ReadInteger('hMyParam'); 
  except 
  end;
  Reg.CloseKey;
end;

procedure SaveReg;
begin
  Reg.OpenKey('\Software\...\SubKey',true);
  try
    Reg.WriteInteger('hMyParam',MyParam);
  except end;
  Reg.CloseKey;
end;

initialization
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKey_Local_Machine;
  ReadReg;
finalization
  SaveReg;
end.

В своих формах везде прописываешь uses Init;
При октрытии модальной формы считываешь свои параметры, устанавливаешь Edit'ам соответствующие значения, при закрытии - устанавливаешь параметрам новые значения. А в главной форме - считываешь уже эти параметры (после закрытия модальной формы)... Удачи...


--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Alkash
Дата 4.4.2007, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


коллекционер жизни
**


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

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

function OpenKey(const Key: String; CanCreate: Boolean): Boolean;

Открытие ключа
Код

function ReadString(const Name: String): String;

Чтение строкового параметра ключа
Код

property RootKey: HKEY;

Свойство хранящее ключ
Код

procedure WriteString(const Name, Value: String);

Запись строкового параметра
Код

function LoadKey(const Key, FileName: String): Boolean;

Description

Call LoadKey to:

1    Create a new subkey under the root key, and
2    Load registry information from a file into the subkey. Registry information can include data values, subkeys, and data values for those subkeys.

А вообще F1 - отличнейшая вещь....

Пока писал - опоздал-)


Это сообщение отредактировал(а) Alkash - 4.4.2007, 12:34


--------------------
Подпись >> /dev/null
PM MAIL ICQ MSN   Вверх
Yanis
Дата 4.4.2007, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 111
Цитата(ama_kid @  4.4.2007,  13:27 Найти цитируемый пост)
Reg.OpenKey('\Software\...\SubKey',true);

При копипасте этоможет вызвать много проблем smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Mersik
Дата 4.4.2007, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: 1
Всего: 0
 smile  Спасибо !!!!
PM MAIL WWW   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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