---

Prøver igen.

Indlæget er endnu ikke ankommet efter en time, så måske der dukker to ens
svar op?

/Brian

"Brian Andersen (www.europeansoftwarehouse.com)" <x@x.x> skrev i en
meddelelse news:...
>> procedure TForm3.FormShow(Sender: TObject);
>> begin
>> if (sender as TForm).name = 'Form1' then blabla...
>> if (sender as TForm).name = 'Form2' then blabla...
>> end;
>
> I kaldene TForm.Show og TForm.ShowModal er den ingen parametre, som kan
> overføres til OnShow Eventet. Din løsning med at anvende OnShow Event'et
> vil altid give TForm3 objektet i Sender parametren.
>
> Dog kan man arbejde videre med din ide og konstruere et nyt procedure kald
> på TForm3. Det er skrevet i løs hånd, så jeg håber det virker/du kan se
> ideer.
>
> /Brian
>
> unit 3;
>
> type
> TViewType = (vtShow, vtModal);
>
> TForm3 = class(TForm)
> private
> FCallingForm: TForm;
> ..
> public
> procedure TForm3.ViewForm(ACallingForm: TForm; AViewType: TViewType);
> ..
> end;
>
> implementation
>
> uses
> Unit1, ...;
>
> procedure TForm3.ViewForm(ACallingForm: TForm; AViewType: TViewType);
> begin
> FCallingForm := ACallingForm;
>
> if AViewType = vtShow then
> Show else
> ShowModal;
> end;
>
> procedure TForm3.FormShow(Sender: TObject);
> begin
> if FCallingForm = Form2 then ....
> end;
>
>
> Et kald til TForm3 kunne så se sådan ud.
>
> procedure TForm2.Button1Click(Sender: TObject);
> begin
> Form3.ViewForm(Self, vtModal);
> end;
>