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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Общение между формами 
:(
    Опции темы
DYUMON
Дата 31.7.2013, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Доброго всем времени суток. Возник такой вопрос.
допустим есть три формы
дата1 
дата2 
справочник

как организовать между ними общение, допустим открыты форма  дата1 и дата2  затем из каждой формы вызывается форма справочник выбираются данные и необходимо правильно их вернуть в форму , из которой был вызов. 
пока это делаю через ид формы а на обратчике событий висит 
Код

case ид_формы of 

но это если вызвать по одному разу формы дата1 и дата2 .
 а если их вызывают по несколько раз то тут начинается каша.


--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
xackera
Дата 31.7.2013, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Попробуйте форму справочник сделать динамической и создавайте новый экземпляр формы справочника при вызове из дата1 и дата2. 
PM MAIL WWW ICQ GTalk   Вверх
superVad
Дата 31.7.2013, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

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



DYUMON, т.е. у тебя справочник сам записывает выбранные данные в соответствующую форму? Ну это как то не очень идеологически верно smile Зачем ему что то знать про тех, кто его использует?


Выше xackera правильно предложил сделать справочник динамическим. От себя предложу - вызывать его классовой функцией, которая и будет возвращать результат.
Как вариант, можно не делать справочник динамическим - просто написать отдельную функцию в каком то общем модуле, которая будет показывать этот справочник и возвращать выбранные данные (в виде записи например или объекта - если там больше одного значения).
PM MAIL   Вверх
Poseidon
Дата 31.7.2013, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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



Тут в любом случае динамический вызов т.к. если делать статическую форму, то она у нас будет одна, а судя по этому: 
Цитата(DYUMON @  31.7.2013,  11:51 Найти цитируемый пост)
открыты форма  дата1 и дата2  затем из каждой формы вызывается форма справочник
их может быть показано больше одной, при чем каждая должна будет вернуть данные в ту форму, из которой этот справочник вызвали. Так что я бы тоже делал динамическую форму, при чем я бы перекрыл стандартный конструктор своим, в котором бы передавал вызывающую форму.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Чучмек
Дата 31.7.2013, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

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



Или завершать предыдущий незавершенный вызов справочника "отменой"


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


Бывалый
*


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

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



Всё, что я мог бы сказать по поводу этого вопроса, я уже сказал здесь:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=50045

Там-же приведён полностью рабочий пример, демонстрирующий сказанное.

PM   Вверх
gesper
Дата 31.7.2013, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Shарфик"
*


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

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



Цитата(DYUMON @ 31.7.2013,  11:51)
Доброго всем времени суток. Возник такой вопрос.
допустим есть три формы
дата1 
дата2 
справочник

как организовать между ними общение, допустим открыты форма  дата1 и дата2  затем из каждой формы вызывается форма справочник выбираются данные и необходимо правильно их вернуть в форму , из которой был вызов. 
пока это делаю через ид формы а на обратчике событий висит 
Код

case ид_формы of 

но это если вызвать по одному разу формы дата1 и дата2 .
 а если их вызывают по несколько раз то тут начинается каша.


unit1
Код

type
    TDataRecord=record
.....

end;


unit form data 1/2
Код

var
   tmpData:TDataRecord;
begin

if not Assigned(FSpravocnic) then
FSpravocnic:=TFSpravocnic.Create(nil);

if FSpravocnic.Showmodal=1 then
begin
    tmpData:=FSpravocnic.GetSelectedData;
end;

--------------------
...И приколется обломившийся и oбломится приколовшийся...
PM MAIL   Вверх
Poseidon
Дата 31.7.2013, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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



gesper, а где ты увидел что надо Showmodal? Та же 1С умеет открывать 100500 справочников и все они отнюдь не модальные.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
gesper
Дата 31.7.2013, 17:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Shарфик"
*


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

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



Цитата(Poseidon @ 31.7.2013,  16:34)
gesper, а где ты увидел что надо Showmodal? Та же 1С умеет открывать 100500 справочников и все они отнюдь не модальные.

Покажите мне человека, который одновременно будет сразу в двух окнах что то выбирать. У него один справочник и как пользователь я бы не хотел что то по десять раз выбирать, раскрывать деревья и т.п., если передо мной в разные моменты открывается одна и та же форма. Нафиг ему создавать копии одной и той же формы? У него справочник это источник данных для другой формы, т.е. открыл "выбираются данные" и возврат в первую форму. ShowModal удобно реализует взможность отловить, что данные выбрали и нам нужно только их забрать.

Вообщем, я показал как можно сделать, а идти или нет этим путем дело путника.
--------------------
...И приколется обломившийся и oбломится приколовшийся...
PM MAIL   Вверх
DYUMON
Дата 31.7.2013, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



 форма справочник вызывается методом 
Код

application.createform(tfrmspravka, frmspravka)

по идее да ни кто не будет вызывать из нескольких окон справочник но по опыту знаю что бывают любители открыть по 150 окон а потом удивлятся где что. думаю сделать проверку на 
Код

assigned(form)

это хоть как то ограничет количество окон


--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
northener
Дата 31.7.2013, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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



Цитата(DYUMON @  31.7.2013,  18:43 Найти цитируемый пост)
 форма справочник вызывается методом 
application.createform(tfrmspravka, frmspravka)

Замучаешься придумывать имена frmspravka, а потом замучаешься их проверять на nil.
smile



--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Poseidon
Дата 1.8.2013, 09:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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



Цитата(gesper @  31.7.2013,  17:39 Найти цитируемый пост)
Покажите мне человека, который одновременно будет сразу в двух окнах что то выбирать
А кто сказал "выбирать"? Нужно "открыть". Посмотри со стороны как работаю бухгалтера. У них может быть открыто несколько справочников и совершенно не для выбора. Зачастую справочники открываются для "посмотреть, а что там есть". Неужели в годы учебы у тебя на столе лежала одна книжка и открыт был только один сайт? Тут то же самое. Человеку очень часто необходимо сразу иметь несколько источников информации. А при ShowModal мы возвращаемся во времена однопоточных операционных систем. "Хочешь посмотреть дугой справочник - закрой этот." Для серьезных проектов это не допустимо.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
gesper
Дата 1.8.2013, 11:43 (ссылка)  | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Shарфик"
*


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

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



Цитата(DYUMON @ 31.7.2013,  18:43)
форма справочник вызывается методом 
Код

application.createform(tfrmspravka, frmspravka)

по идее да ни кто не будет вызывать из нескольких окон справочник но по опыту знаю что бывают любители открыть по 150 окон а потом удивлятся где что. думаю сделать проверку на 
Код

assigned(form)

это хоть как то ограничет количество окон

Тогда у тебя ошибка, если в форме нету  при закрытии ее нет опции "Action=cafree" в обработчике формы. 
Без проверки Assigned(frmspravka) у тебя создается копия класса формы, заменая адрес уже созданной формы в переменной, и связь с формой теряется, а без вызова free память не освобождается.

Код

application.createform(tfrmspravka, frmspravka)

равносильно
Код

frmspravka:=tfrmspravka.Create(application);


Добавлено через 4 минуты и 5 секунд
Цитата(Poseidon @ 1.8.2013,  09:25)
Цитата(gesper @  31.7.2013,  17:39 Найти цитируемый пост)
Покажите мне человека, который одновременно будет сразу в двух окнах что то выбирать
А кто сказал "выбирать"? Нужно "открыть". Посмотри со стороны как работаю бухгалтера. У них может быть открыто несколько справочников и совершенно не для выбора. Зачастую справочники открываются для "посмотреть, а что там есть". Неужели в годы учебы у тебя на столе лежала одна книжка и открыт был только один сайт? Тут то же самое. Человеку очень часто необходимо сразу иметь несколько источников информации. А при ShowModal мы возвращаемся во времена однопоточных операционных систем. "Хочешь посмотреть дугой справочник - закрой этот." Для серьезных проектов это не допустимо.

Читай внимательно ТЗ автора темы. Для серьезных проектов определяется тип формы и данных в ней, чтобы знать что с ними могут делать. Не цепляйся к слову"Справочник", это трата времени, ты должен знать конкретные данные в форме и для чего они. Поскольку нас спрашивают как сделать форму, то возможно что справочник по факту "Каталог", к примеру.

Добавлено через 5 минут и 24 секунды
Цитата(northener @ 31.7.2013,  18:55)
Цитата(DYUMON @  31.7.2013,  18:43 Найти цитируемый пост)
 форма справочник вызывается методом 
application.createform(tfrmspravka, frmspravka)

Замучаешься придумывать имена frmspravka, а потом замучаешься их проверять на nil.
smile

Глобальный TList его спасти бы мог, или прописать самоуничтожение при закрытии.
--------------------
...И приколется обломившийся и oбломится приколовшийся...
PM MAIL   Вверх
Poseidon
Дата 1.8.2013, 12:21 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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



Цитата(gesper @  1.8.2013,  11:43 Найти цитируемый пост)
Читай внимательно ТЗ автора темы.
Решил быть дотошным? Ну читаем:
Цитата(DYUMON @  31.7.2013,  11:51 Найти цитируемый пост)
открыты форма  дата1 и дата2  затем из каждой формы вызывается форма справочник
Я не нашел слов "поочередно", "только один" и т.п. Открыты 2 формы и из каждой из них вызывается третья и что-то в ней выбирается. Нужно вернуть выбор в ту форму из первых двух, которая и вызвала третью. Заметь, я не использовал слово "Справочник", но все-равно из вышесказанного очевидно, что нужно иметь возможность вызывать третью форму из каждой формы из первых двух. При этом нет нигде ни слова, что при вызове третьей формы из первой нужно обязательно закрывать третью форму, если ее вызвали из второй. При этом, далее автор пишет, что да, по идее никто не будет открывать несколько справочников, но все-равно необходимо оставить такую возможность для "особо умных". Так что не нужно мне тут ТЗ тыкать!

Добавлено через 1 минуту и 19 секунд
Кстати, мало того что твой ShowModal не даст вызвать второй справочник, так вообще всю работу заблокирует пока эту третью форму не закроешь.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Чучмек
Дата 1.8.2013, 13:06 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

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



Poseidon ты прав, на модальный режим в тз ничего не указывает.
Но как узнать, какое окно и куда, должно вернуть данные, если одновременно открыто несколько экземпляров?


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
gesper
Дата 1.8.2013, 13:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Shарфик"
*


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

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



Цитата(Poseidon @ 1.8.2013,  12:21)
Цитата(gesper @  1.8.2013,  11:43 Найти цитируемый пост)
Читай внимательно ТЗ автора темы.
Решил быть дотошным? Ну читаем:
Цитата(DYUMON @  31.7.2013,  11:51 Найти цитируемый пост)
открыты форма  дата1 и дата2  затем из каждой формы вызывается форма справочник
Я не нашел слов "поочередно", "только один" и т.п. Открыты 2 формы и из каждой из них вызывается третья и что-то в ней выбирается. Нужно вернуть выбор в ту форму из первых двух, которая и вызвала третью. Заметь, я не использовал слово "Справочник", но все-равно из вышесказанного очевидно, что нужно иметь возможность вызывать третью форму из каждой формы из первых двух. При этом нет нигде ни слова, что при вызове третьей формы из первой нужно обязательно закрывать третью форму, если ее вызвали из второй. При этом, далее автор пишет, что да, по идее никто не будет открывать несколько справочников, но все-равно необходимо оставить такую возможность для "особо умных". Так что не нужно мне тут ТЗ тыкать!

Добавлено @ 12:22
Кстати, мало того что твой ShowModal не даст вызвать второй справочник, так вообще всю работу заблокирует пока эту третью форму не закроешь.

фраза была такая, а не только тот кусок, что ты привел.
Цитата

допустим открыты форма  дата1 и дата2  затем из каждой формы вызывается форма справочник выбираются данные и необходимо правильно их вернуть в форму , из которой был вызов. 

Вызывается одна форма, а не несколько и надо правильно вернуть.
С одной формы при одновременном вызове нельзя вернуть данные сразу в две формы, потому что вызов со второй перекроет вызов первой, даже если вы в "справочник" засунете адрес переменной, куда надо записать итог выбора.
Модальность для режима выбора правильное решение, потому что идет команда "Установить значение", и некакие другие действия не должны мешать и перекрывать диалог выбора. Если нужно использовать "справочник" как просмотр данных, то пишется отдельная кнопка, которая вызывает его иначе.

Можно передать просто адрес переменной в "Справочник" и вместо функции GetData справочник сам запишет запись в нужный адрес, но тогда это повлечет порчу данных, если нет блокировки через showmodal и пользователь перещелкниться в другое окно, его отвлекут, и он возьмет и кликнет другие данные, или попросту закроет окно, забыв выбрать данные, или перепутает окна, если сделать создание нескольких одинаковых окон. Одно окно, постоянно весящее в памяти без уничтожения, позволяет не только это все отфильтровать, но и сохранить свое состояние и содержимое при двух разных вызовах(к примеру выбор из дерева каталога не потребует искать все заново).

Добавлено @ 13:36
Цитата(Чучмек @ 1.8.2013,  13:06)
Poseidon ты прав, на модальный режим в тз ничего не указывает.
Но как узнать, какое окно и куда, должно вернуть данные, если одновременно открыто несколько экземпляров?

примерно так можно

unit
Код

type
    TDataRecord=record
.....
    PTDataRecord:=^TDataRecord; // не помню с какой стороны галочка ставится.
end;




unit TFSpravocnic
Код

protected   // в защищенной зоне класа формы объявляем переменную
        ChangeData:PTDataRecord;

.....

procedure onClose.... 
begin
    Action:=caFree;
end;

.....

procedure SetField(var tmpData:TDataRecord)
begin
   ChangeData:=tmpData; //запоминаем адрес куда писать данные
end;

procedure ButtonClick
begin
   ChangeData.Text:='Новое значение';

end;




unit data 1/2
Код

var
   tmpData:TDataRecord;
begin

FSpravocnic:=TFSpravocnic.Create(application);
FSpravocnic.Show;
FSpravocnic.SetField(tmpData); // передаем адрес куда писать данные
end;




Это сообщение отредактировал(а) gesper - 1.8.2013, 13:38
--------------------
...И приколется обломившийся и oбломится приколовшийся...
PM MAIL   Вверх
Poseidon
Дата 1.8.2013, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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



Цитата(Чучмек @  1.8.2013,  13:06 Найти цитируемый пост)
Но как узнать, какое окно и куда, должно вернуть данные, если одновременно открыто несколько экземпляров?
На самом деле вариантов может быть несколько. Один из них: 
Цитата(Poseidon @  31.7.2013,  13:13 Найти цитируемый пост)
я бы тоже делал динамическую форму, при чем я бы перекрыл стандартный конструктор своим, в котором бы передавал вызывающую форму.


Цитата(gesper @  1.8.2013,  13:27 Найти цитируемый пост)
Вызывается одна форма, а не несколько и надо правильно вернуть.
В ТЗ так и написано. Нужно вызвать одну форму, но никто не сказал, что ее должно быть можно вызвать только один раз. Поэтому и нужно предусмотреть вариант с вызовом одной формы, но несколько раз (отдельно для дада1, отдельно для дата2). 

Цитата(gesper @  1.8.2013,  13:27 Найти цитируемый пост)
С одной формы при одновременном вызове нельзя вернуть данные сразу в две формы, потому что вызов со второй перекроет вызов первой, даже если вы в "справочник" засунете адрес переменной, куда надо записать итог выбора.
Формы 2! Объект один, в дизайнере форма одна, а ран-тайм при одновременном вызове их две! Кто запрещает создать один класс, но использовать при этом 2 экземпляра этого класса? Так и тут.


Цитата(gesper @  1.8.2013,  13:27 Найти цитируемый пост)
Код

var
   tmpData:TDataRecord;
begin

FSpravocnic:=TFSpravocnic.Create(application);
FSpravocnic.Show;  { <-- ShowModal, не? }
FSpravocnic.SetField(tmpData); // передаем адрес куда писать данные
end;


Добавлено через 8 минут и 5 секунд
Кстати, я не проверял, не на чем сейчас, но по-моему в твоей SetField мы получим Incompatible types: 'Pointer' and 'TDataRecord'. Хотя могу и ошибаться.

Это сообщение отредактировал(а) Poseidon - 1.8.2013, 13:52


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Чучмек
Дата 1.8.2013, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

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



Цитата(Poseidon @  1.8.2013,  13:52 Найти цитируемый пост)
Цитата(Чучмек @  1.8.2013,  13:06 Найти цитируемый пост)
Но как узнать, какое окно и куда, должно вернуть данные, если одновременно открыто несколько экземпляров?
На самом деле вариантов может быть несколько. Один из них: 
Цитата(Poseidon @  31.7.2013,  13:13 Найти цитируемый пост)
я бы тоже делал динамическую форму, при чем я бы перекрыл стандартный конструктор своим, в котором бы передавал вызывающую форму.


Я за другое. Программная реализация для меня не проблема. 
Я за пользователя. 
Пользователь вызвал окно выбора из окна А, потом из окна Б.
Потом отвлекся, открыл другую программу, свернул все окна.
Потом вернулся к работе. И упс, два одинаковых окна, каждое ожидает выбор данных, а какое куда эти данные вернет?       



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
gesper
Дата 1.8.2013, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Shарфик"
*


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

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



Цитата(Poseidon @ 1.8.2013,  13:52)
Кстати, я не проверял, не на чем сейчас, но по-моему в твоей SetField мы получим Incompatible types: 'Pointer' and 'TDataRecord'. Хотя могу и ошибаться.

Я на работе, тут нет у меня компилятора проверить, а на память синтаксис не помню точно.
Код

FSpravocnic.Show;  { <-- ShowModal, не? } 
FSpravocnic.SetField(tmpData); // передаем адрес куда писать данные

// все правильно, другой вариант показал просто. Открыть форму и чтобы она сама себя уничтожала при закрытии, а SetField должен быть описан так, чтобы передавалось не значение переменной, а адрес переменной куда писать данные, если будет сделан выбор.
Ошибка только в том, что саму переменную забыл убрать из процедуры выше в глобальные формы.



Пускай автор разбереться чего хочет, а там решение найдет.

Добавлено через 2 минуты и 2 секунды
Цитата(Чучмек @ 1.8.2013,  14:13)
Цитата(Poseidon @  1.8.2013,  13:52 Найти цитируемый пост)
Цитата(Чучмек @  1.8.2013,  13:06 Найти цитируемый пост)
Но как узнать, какое окно и куда, должно вернуть данные, если одновременно открыто несколько экземпляров?
На самом деле вариантов может быть несколько. Один из них: 
Цитата(Poseidon @  31.7.2013,  13:13 Найти цитируемый пост)
я бы тоже делал динамическую форму, при чем я бы перекрыл стандартный конструктор своим, в котором бы передавал вызывающую форму.


Я за другое. Программная реализация для меня не проблема. 
Я за пользователя. 
Пользователь вызвал окно выбора из окна А, потом из окна Б.
Потом отвлекся, открыл другую программу, свернул все окна.
Потом вернулся к работе. И упс, два одинаковых окна, каждое ожидает выбор данных, а какое куда эти данные вернет?

Я об этом писал выше, говоря про Showmodal и создание копий окна справки.
--------------------
...И приколется обломившийся и oбломится приколовшийся...
PM MAIL   Вверх
northener
Дата 1.8.2013, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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



Цитата(gesper @  1.8.2013,  11:43 Найти цитируемый пост)

application.createform(tfrmspravka, frmspravka)
равносильно
frmspravka:=tfrmspravka.Create(application);

Не совсем так. У TApplication.CreateForm есть одна очень важная для проекта цель, которой нет у простого вызова конструктора формы.
(с) Буквоед.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Чучмек
Дата 1.8.2013, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

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



Цитата(gesper @  1.8.2013,  14:24 Найти цитируемый пост)
Я об этом писал выше, говоря про Showmodal и создание копий окна справки.

gesper это к Poseidon.
 Но он правильно говорит, про модальный режим речь не идет. А что нужно автору мы не знаем, он не уточнял.
Модальный режим, возможно, подходящий, в данном случае, вариант, а может и нет.
Цитата(Poseidon @  1.8.2013,  12:21 Найти цитируемый пост)
Кстати, мало того что твой ShowModal не даст вызвать второй справочник, так вообще всю работу заблокирует пока эту третью форму не закроешь. 

Можно сделать псевдомодальный вызов.
Код

unit UnitX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFormX = class(TForm)
  private
    { Private declarations }
    FOwner:TForm;
  public
    { Public declarations }
    function ShowPseudoModal(Owner: TForm):integer;
  end;

var
  FormX: TFormX;

implementation

{$R *.dfm}
 { TFormX }

function TFormX.ShowPseudoModal(Owner: TForm): integer;
begin
  ModalResult:=mrNone;
  if not Visible then
  begin
    FOwner:=Owner;
    //if Assigned(FOwner) then FOwner.Enabled:=false;
    Visible:=true;
    while Visible do
    begin
      WaitMessage;
      Application.ProcessMessages;
      if ModalResult<>mrNone then Visible:=false;
    end;
    if ModalResult=mrNone then ModalResult:=mrCancel;
    if Assigned(FOwner) then
    begin
      //FOwner.Enabled:=true;
      SetForegroundWindow(FOwner.Handle);
    end;
    FOwner:=nil;
  end else
  begin
    if Assigned(FOwner) then SetForegroundWindow(FOwner.Handle);
    SetForegroundWindow(Handle);
    Beep;
  end;
  result:=ModalResult;
end;


end.

Вызов
Код

FormX.ShowPseudoModal(self);

   


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
Poseidon
Дата 1.8.2013, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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



Цитата(Чучмек @  1.8.2013,  14:13 Найти цитируемый пост)
Я за другое. 
Программная реализация для меня не проблема. Я за пользователя. 
А посмотри как это сделано в 1С - никак smile В какую-то форму да вернет. Не туда? Вызывай заново. Это, конечно, грабли. Ну в крайнем случае можно для каждой формы указывать что-нибудь этакое в Caption.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Страницы: (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.1223 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


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

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