Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Свойства формы [D6]

Sedunov Vitaly © (2002-09-18 11:39:00)
Добрый день! У меня следующая проблема. Вызываемая форма(Форма1) может вызываться из разных форм(Форма2,Форма3,Форма4). В зависимости от того, из какой формы вызывалась Форма1, нужно вернуть параметры в Форма2 или Форма3 или Форма4. В Форма1 я передаю имя формы, откуда была вызвана форма, т.е. "Form2" или "Form3" или "Form4". Почему-то не работает следующая конструкция: TForm2(FindComponent("Form2")).retparam:=..., то же самое и TForm(FindComponent("Form2")).retparam:=... Но срабатывает Form2.retparam:=... Меня это не устраивает, т.к. экземпляров формы Форма2(Form2) может быть много. Простите за долгое объяснение. Буду рад вашей помощи.

С уважением.

Старый Паскалист (2002-09-18 12:54:00) [1]
2qube ©

Да какие проблемы. Можно и результатом ф-и.
Всё можно сделать десятью тысячами различных способов,
и я постарался перечислил лишь некоторые варианты.

(возвращение через var мало отличается от результата ф-и,
а в качестве результата ф-и для модального случая
я привык возвращать подтверждение/отказ).

qube (2002-09-18 12:31:00) [2]
Что-то вы замутили сверхсложное. А функцией нельзя возвращать значение, что ли?

Старый Паскалист (2002-09-18 12:10:00) [3]
Можно сделать так:

function TForm1.Execute(Caller: TForm; var retparam: TSomeType; {...}): Boolean;
begin
// Инициализация
Result := (ShowModal = mrOk);
if Result then
begin
// Ознакомление заинтересованных лиц с результатами

// Неудобно работать с формами, не имеющими общего предка, напрямую
// if Caller is TForm2 then (Caller as TForm2).retparam := ???;
// else if Caller is TForm3 then (Caller as TForm3).retparam := ???;

retparam := Что-нибудь;

// Есть и другие способы уведомления:
// Можно, напр, объявить пользовательское сообщение
// SendMessage(Caller.Handle, WM_MYRESULT, retparam, 0);
// - Это вариант для асинхронного режима, когда форма показыаается немодально

// Или просто сделать св-во Form1.SomeWorkResult: TSomeType;
// А вызывающие формы уже сами будут его читать при необходимости

// Можно через RTTI - но слишком увлекаться RTTI тоже не стоит
end;
end;

...

procedure TForm2.CallForm1;
begin
with TForm1.Create(nil) do
begin
try
if Execute(Self, retparam) then ...;
finally
Free;
end;
end;
end;

Sedunov Vitaly (2002-09-18 11:57:00) [4]
Все формы создаются динамически. AutoCreate тут ни при чем. Сейчас попробую передавать форму. Спасибо!

AlexT1000 (2002-09-18 11:50:00) [5]
procedure PutForm(Var Sender : TForm);

так вроде точнее

AlexT1000 (2002-09-18 11:49:00) [6]
а зачем ты передаешь имя формы ? передавай просто форму.

procedure PutForm( Sender : TForm);
begin
Sender.FindComponent(..........
end;

PutForm(TForm(Form2));
PutForm(TForm(Form3));

qube (2002-09-18 11:46:00) [7]

Если экземпляров формы может быть много, то никакой поиск по имени не поможет. Эту форму надо убрать из auto-create, создавать динамически, и тогда все заработает.

Наверх

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