بازکردن فرم مثل تابع

[Delphi7_love]

چطور میشه فرم مثل تابع ورودی بگیره ؟

مثلا

form2.showmodal(1,5);

[Felony]

تو بخش Public کلاس فرم مورد نظر یه procedure هم نام با procedure مورد نظر بسازید ( در اینجا ShowModal ) و پارامترهای دلخواه رو براش تعریف کنید ، حالا وقتی میخواین از جای دیگه ShowModal رو فراخوانی کنید از Procedure اصلی چشم پوشی میشه و Procedure ی که شما تعریف کردید نشان داده میشود ، البته باید به یاد داشته باشید که اینی که تعریف کردید یه Procedure معمولی هست و کارهایی که Procedure اصلی میکردند رو انجام نمیده پس باید کارهای قبلی رو به ارث ببرید .

تعریف زیر رو در بخش Public کلاس فرم دومتون بنویسید :

procedure ShowModal(A,B: Integer);

کد :

procedure TForm2.ShowModal(A, B: Integer);
begin
Caption:= IntToStr(A + B);
inherited ShowModal;
end;

فراخوانی از فرم 1 :

Form2.ShowModal(10, 20);