اعدادت الشاشة

السلام عليكم

واحد من الحلول هو تغيير إعدادات الشاشة

function SetScreenResolution(Width, Height: integer): Longint;
var
  DeviceMode: TDeviceMode;
begin
  with DeviceMode do begin
    dmSize := SizeOf(TDeviceMode);
    dmPelsWidth := Width;
    dmPelsHeight := Height;
    dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
  end;
  Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;

جرب المثال المرفق أو تصفح هذه الصفحة

Form display with different screen resolutions

هناك حلول أخرى...

Delphi_Change_Screen_Resolution_Example.rar

نصيحة .... لا تقرب اعدادات جهاز المستخدم ...ولا تغير فيها شي .... الا في حالات نادرة ... وبعد ما يستأذن برنامجك من المستخدم

وبالنسبة لسؤالك ... لأا اعتقد انة يوجد مشكلة ... المشكلة فيك وفي ما تعودت علية ... اقصد النضر .. : )

اكيد انت ممن يستخدم دقة منخفضة ... 800x600 مثلآ

المهم انت صمم برنامجك على دقة 1024 واترك المستخدم يشاهد بالطريقة اللي تناسبة .