سورسهاي نمونه آموزشي

[Ananas]

یک تابع هم برای مقدار دهی پیش فرض رکورد تعریف کنید که اول همه ی پارامتر ها رو پر کنه بعد اگه کاربر خواست قسمتیش رو تغییر بده بعد بفرسته به تابع.
البته نظر کلی من در مورد تعریف همچین تابعی اینه که : چه کاریه! به جای این کار یک تابع تعریف کنید که فرم رو با مقدار دهی اولیه بسازه و بعد اگه کاربر خواست قسمتیش رو تغییر میده.
امر فرمودن مثال بزنم، چشم:

procedure TForm1.Button1Click(Sender: TObject);

var

  f : TForm;

  b : TButton;

begin

  f             := TForm.Create(nil);

  f.Color       := $00808000;

  f.Caption     := 'مای فرم';

  f.BorderStyle := bsSizeToolWin;

  b             := TButton.Create(f);

  b.Parent      := f;

  b.Caption     := 'مای باتن';

  f.ShowModal;

  f.Free;

end;

اصلا نیازی به تابع هم نیست ولی میتونه اینطور باشه:

function CreateFreeForm(AOwner: TComponent):TForm;

begin

  Result := TForm.Create(AOwner);

end;