---

Prøver igen... igen...

/Brian


"Brian Andersen (www.europeansoftwarehouse.com)" <x@x.x> skrev i en
meddelelse news:...
> 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;
>>
>
>