| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как послать сообщение из одной формы в другую? [D5, MSSQL]

GreySerg ©   (2002-03-28 19:49:00) 

Есть формa1 с query1, из формы1 вызывается форма2 с query2, форма1 и 2 - немодальные
Необходимо, чтобы при закрытии формы2 обновлялся query1 в форме1.
Где то я видел, что можно с помощью посылки сообщения, но никак не найду.
Может подскажите более простые решения, если они есть.

---

GreySerg   (2002-03-28 20:26:00) [1]

то что мне сказали. я и сам знал
мне нужно. что-то вроде того: если форма2-модальная, то
это реализуется вот так

procedure TForm1.Query1BeforeEdit(DataSet: TDataSet);
begin
with TForm2.Create(Self) do
try
if Edit(Self.Query1ID.Value)=mrOk then Self.Requery.Execute;
finally
Free;
end;
end;


function TForm2.Edit(Key: Integer): Integer;
begin
Query2.Parameters.ParamValues["@Key"]:=Key;
Query2.Open;
Result:=ShowModal;
end;



---

Delirium   (2002-03-28 20:05:00) [2]

Ты думаешь SendMessage или PostMessage сигнализирующие о закрытии формы в составе одного проекта изящнее ?!! Не мудри - тебе правильно сказали.

---

GreySerg   (2002-03-28 19:55:00) [3]

будет некрасиво если я напрямую вызову в форма2.onclosequery
форма1.query1.requery()
нужно более изящное решение

---

Shaman_Naydak   (2002-03-28 19:51:00) [4]

поставь обработчик на OnHide, например, формы2..в нем перевыполни query1

---

Наверх