مكون يعينك على تشغبل برنامجك على جميع Screen Resolution

بارك الله فيك :rolleyes:

مشكور أخى توهامى وعسى أن يجعله الله فى ميزان حساناتك

السلام عليكم شكرا لك

وللفائدة هده دالة بسيطة تغيير ابعاد الشاشة

بميتناسب مع تطبيقك

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; 

You can use ChangeDisplaySettings to change other properties of the 
display like the color depth and the display frequency. 


Sample call 
----------- 

In the following example first we get the current screen resolution 
before setting it to 800x600, and then we restore it calling 
SetScreenResolution again. 

  var 
	OldWidth, OldHeight: integer; 

  procedure TForm1.Button1Click(Sender: TObject); 
  begin 
	OldWidth := GetSystemMetrics(SM_CXSCREEN); 
	OldHeight := GetSystemMetrics(SM_CYSCREEN); 
	SetScreenResolution(800, 600); 
  end; 

  procedure TForm1.Button2Click(Sender: TObject); 
  begin 
	SetScreenResolution(OldWidth, OldHeight); 
  end;