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

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

form3.showmodal [D6, Win2k]

denis24 ©   (2004-10-13 10:19:00) 

Вызывается сабж кнопкой с form1 или кнопой с form2.
Как оперделить в самой form3 кто ее вызвал?

---

denis24   (2004-10-13 11:05:00) [1]

спасибо!

---

Pentium133   (2004-10-13 11:01:00) [2]

> denis24   (13.10.04 10:56) [12]

Делай как [5]. Там же явно вызывается Free.
А насчет каждый раз создавать - так и нужно поступать.
В начале программы создается только главное оконо. Остальные по мере использования и уничтожаются после

---

denis24   (2004-10-13 10:56:00) [3]

[5] form3 так и вызывать каждый раз?Тоесть создавать?
Она уничтожается сама при закрытии себя?

---

Pentium133   (2004-10-13 10:43:00) [4]

> Угу, у него будет самый крутой uses :)

А в чём проблема то?
Всегда так делаю. Ни каких левых заморочек не надо.

---

ЮЮ   (2004-10-13 10:34:00) [5]

>Pentium133 ©   (13.10.04 10:31) [8] Самый правильный вариант [5]

Угу, у него будет самый крутой uses :)

---

Reindeer Moss Eater   (2004-10-13 10:34:00) [6]

unit Unit1;

interface

...
type
TForm1 = class(TForm)
..
 private
   { Private declarations }
 public
   { Public declarations }
 end;

function DoOne : boolean;
function DoTwo : boolean;
function DoThree: boolean;

implementation

{$R *.DFM}

function DoOne : boolean;
begin
with TForm1.Create(nil) do
 try
  Caption:='Делаю одно';
  Init(1);
  Result := ShowModal = mrOk;
 finally
  Free;
 end;
end;

function DoTwo : boolean;
begin
with TForm1.Create(nil) do
 try
  Caption:='Делаю другое';
  Init(2);
  Result := ShowModal = mrOk;
 finally
  Free;
 end;
end;

function DoThree: boolean;
begin
with TForm1.Create(nil) do
 try
  Caption:='Делаю третье';
  Init(3);
  Result := ShowModal = mrOk;
 finally
  Free;
 end;
end;

---

Pentium133   (2004-10-13 10:31:00) [7]

Не запутывайте человека.
Самый правильный вариант [5] (даже лучше чем [6] :)

---

ЮЮ   (2004-10-13 10:28:00) [8]

кнопка на form3 должна только закрыть form3 а дальше анализируй ModalResult.
P/S. На хужой конец,
 Form3.Button.OnClick := Form3ButtonClick;
где Form3ButtonClick - метод формы form1/form2

---

Pentium133   (2004-10-13 10:27:00) [9]

если ты вызываешь форму так:

Form3:= TForm3.Create(Self);
Form3.ShowModal;

тогда Form3.Owner - как раз указывает на форму которая вызвала ее.

---

Ega23   (2004-10-13 10:25:00) [10]


TForm3=class(TForm)
.....
private
FSenderName:String;
public
property SenderName:String Read FSenderName write FSenderName;
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
Form3.SenderName:=Self.Name;
Form3.Show;
end;

procedure TForm2.Button1Click(Sender:TObject);
begin
Form3.SenderName:=Self.Name;
Form3.Show;
end;


Можно гораздо изощерённее

---

Гаврила   (2004-10-13 10:25:00) [11]

Form3:=TForm3.Create(self);
try
 Form3.ShowModal;
....
finally
 Form3.Free;
end;

Если создание и вызов идет так, то свойство Owner формы 3 как раз и будет равно показавшей ее форме

---

denis24   (2004-10-13 10:24:00) [12]

А если надо чтоб кнопка на form3 выполняла различные операции в зависимости от того с какой формы она вызвана?

---

Алхимик   (2004-10-13 10:23:00) [13]

В свойство Form3.Tag пиши номер вызвавшей формы.

---

ЮЮ   (2004-10-13 10:22:00) [14]

form3 этого и знать не должна! Всю подготовку form3 и анализ введенных данных делай в тех местах, где вызываешь form3.showmodal, IMHO

---

Наверх