فرم با وضوح مختلف

[s_mokhtari]

با سلام
دوستان من ميخوام برنامه رو روي هر سيستمي با هر ريزوليشني كار بده بايد چيكار كنم چون وقتي 600*800 گذاشتم نصف فرم نشون نميده لطفاً راهنماييم كنيد
خيلي عجله دارم
با تشكر
فراموش كردم اينم كدش چطور استفاده كنم
procedure ResizeControl(Control: TWinControl; DefaultRes: TPoint);

var

Ratio: integer;

begin

Ratio := Trunc((Screen.Width * Screen.Height) / (DefaultRes.X * DefaultRes.Y) * 100);

Control.ScaleBy(Ratio,100);

end;
ResizeControl(Form1, Point(1024,768));
حالا تو چه رويدادي اينو بنويسم
در ضمن برنامه با محيط سي‌شارپ

[حجتی نیا]

من فرم رو 1024*768طراحی کردم و window stateاونو maximaize کردم البته هرچیزی که تو فرم هست(تکس باکس،باتن...) خاصیت anchor رو top-right قرار دادم و تو سیستما مشکلی تو اجرا نداره
در مورد این کد هم باید بگم تو قسمت لود فرم بذار،احتمالا باید کار کنه....:متفکر:

[s_mokhtari]

با سلام
دوستان من ميخوام برنامه رو روي هر سيستمي با هر ريزوليشني كار بده بايد چيكار كنم چون وقتي 600*800 گذاشتم نصف فرم نشون نميده لطفاً راهنماييم كنيد
خيلي عجله دارم
با تشكر
فراموش كردم اينم كدش چطور استفاده كنم
procedure ResizeControl(Control: TWinControl; DefaultRes: TPoint);

var

Ratio: integer;

begin

Ratio := Trunc((Screen.Width * Screen.Height) / (DefaultRes.X * DefaultRes.Y) * 100);

Control.ScaleBy(Ratio,100);

end;
ResizeControl(Form1, Point(1024,768));
حالا تو چه رويدادي اينو بنويسم
در ضمن برنامه با محيط سي‌شارپ
با سلام
كسي نيست اين تابع رو كمكم كنه
:عصبانی::عصبانی::عصبانی: