پیغام خطا هنگام تغییر اندازه و Posrition فرم

[پریسا نامدار]

سلام دوستان.
من در بعضی از نقاط برنامه احتیاج به تغییر اندازه فرم و تعیین مکان اون به وسط سفحه دارم و این کارها توسط خود فرم اصلی انجام میشه( با استفاده از تب های Page Control) .
بعد از این کار همیشه یک پیغام خطای گوناگون میده و این اعصاب کاربر رو خورد میکنه.
میشه به من بگید باید چه کاری انجام بدم که چنین پیغامی نیاد ؟
اگه راه دیگه ای هم باشه عیبی نداره.
از تمام کسایی که زود جواب میدن ممنونم.

[vcldeveloper]

میشه کمی بیشتر توضیح بدید که چطوری این کار رو انجام می دید و چه پیغامهای خطایی می گیرید؟!

[پریسا نامدار]

ببخشید که دیر جواب دادم.
من کد زیر رو برای تغییر انداز زدم:

form1.Width:=740;
form1.Resize;
form1.Position:=poDesktopCenter;
و پیغام خطا :

Access Violation at Address 00000000.Read of address 00000000
البته ارقامش متغیریه.
حالا به نظر شما باید چیکار کنم؟ :idea: :idea: :idea:

[vcldeveloper]

اول اینکه، شما مطمپنی جای دیگه ای از برنامه ایراد نداره؟ مثلا شی رو که هنوز ساخته نشده رو فراخونی نمی کنی؟!!

دوم اینکه، حتی کد زیر هم پیغام شما رو تولید نمی کنه!!!


procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to 400 do
begin
randomize;
Width := 300 + Random(300);
Resize;
Position:=poDesktopCenter;
end;
end;


مشکل باید از جای دیگه باشه. کدهای دیگه رو چک کنید!