bir formun hangi form tarafından show edildiğini bilmek

[berken]

merhaba arkadaslar..
forumda geçtiğini sanıyorum ama aradım bulamadım...
A B C gibi üç formum var..
C formunu A dan da B den de show ediyorum .. ve C de bazı işlemler yapıyorum .. ama c en son show olunca hangi form tarafından yapıldğını bulmak istiyorum çünkü gönderen forma göre yapacağım işlemler farklı
acaba
if (sender as A ) mıydı ????

[rsimsek]

Çağırdığın formdan

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  frm_Form2.Tag := 1;
  frm_Form2.Show;
end;

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
begin
  frm_Form2.Tag := 2;
  frm_Form2.Show;
end;

şeklinde çağırır ve de

Kod: Tümünü seç

procedure Tfrm_Form2.FormShow(Sender: TObject);
begin
  if Tag = 1 then // 1 nolu formdan çağırıldı..
  if Tag = 2 then // 2 nolu formdan çağırıldı..
//...
end;

şeklinde kontrol edersen istediğini yapabilirsin.


Arayınca da şunlar çıkıyor
viewtopic.php?t=9492
viewtopic.php?t=8119

[berken]

sağolun usta..
ben sender And Form olarak arattım 74 sayfa sonuc çıktı..
tag olduğunu bilmiyordum... aynen oyle .. dediğiniz doğru