Get dimensions of usable space on monitor (work area)
CK CK 3788 
Created at  
 490 0 0
If you need to find the dimensions of user's screen in pixels, after
subtracting any space occupied by the task bar and any tool bars that
sit on the desktop, use the WorkAreaHeight adnd WorkAreaWidth
properties of the TScreen object.

The following code determines the height of all forms on the screen and
resizes any that are taller than the screen WorkArea height.

with Screen do

  for j := 0 to FormCount-1 do

   if Forms[j].Height > WorkAreaHeight then

     Forms[j].Height := WorkAreaHeight;

   if Forms[j].Width > WorkAreaWidth then

     Forms[j].Width := WorkAreaWidth;
Tags GetClassName WorkAreaWidth chkdsk Facebook X
Comments 0
Similar posts
  1. Get system info (free memory, etc)
    405
  2. Get text from the control at pos x,y on screen
    469
  3. How to determine the output of a console application ?
    451
  4. How to Get Filenames from Clipboard ?
    1,502
  5. How to Get Windows OS Version ?
    429
  6. How to install an INF file using Delphi ?
    463
  8. Get Windows Temp directory
    658
  9. How to play sounds on the PC Speaker ?
    528
  10. Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL
    1,827
  11. Display Standard Windows Properties dialog
    1,129
  12. Disable Mouse and Keyboard from Delphi Code
    795
  13. Detecting Drive Types
    467
  14. Detecting and preventing Windows shut down
    439
  15. Copying Group of Files using Delphi with Standard Animation Dialog (SHFileOperation)
    413
  16. Controling sound volume from code
    424
  17. How to Close Another Application by Windows Caption
    390
  18. How to Change the Windows Start button bitmap
    428
  19. How to capture the output from a DOS (command/console) Window
    965
  21. How to Activate/Deactivate the Screen Saver
    863
  22. How to remove your application from TaskBar
    658
  23. How to track a user's idle time
    589
  24. How to know whether the font is TrueTypeFont or not
    376
  25. List Devices (LPT, COM ports, ...)
    478
  26. How to restrict mouse movement
    408
  27. How to send char as message to another application
    544
  28. How to save text from Clipboard to a file
    569
  29. How to show window contents while dragging
    455
  30. How to use TTF Font Without Installing
    1,117
  32. Window flashing
    379
More in Delphi
  1. How to encode subject content when sending mail with TIdMessage ?
    1,072
  2. Base64 Encoding/Decoding function for Delphi
    1,154
  3. How to send email by TIdSMTP VCL ?
    1,019
  4. How to return exit code such as exit() function in C/C++ ?
    663
  5. How to get parameter string ?
    1,240
  6. Save TBitmap image to Jpeg format image in Delphi
    712
  7. How to get screen resolution in case of using multiple monitors ?
    450
  8. How to turn off monitor ?
    429
  9. Find File at certain directory in Delphi
    437
  10. Sending email messages in .Net
    1,035
  11. Delphi for .Net Code Folding keyboard shortcuts
    527
  12. How to encrypt a string
    467
  13. Creating thumbnail images
    861
  15. Technology sharing related with software development. Specially content will be focused to programming language, and embedded systems.
    851
  16. How to speed up access to the RichTextBox Lines property
    831
  17. Retrieving all image links from an HTML document
    419
  18. List All Network Drives
    392
  19. How to set the "home page" for the Internet Explorer from Delphi code
    431
  20. How to get get IE favorites
    454
  21. Extracting the domain (host) name from an e-mail address
    488
  22. Download a file from the Internet with progress indicator
    553
  23. Are we connected to the Internet?
    422
  24. TImage.Bitmap fade out
    373
  25. TDesktopCanvas - draw on Windows Desktop
    558
  26. TColor to HTML color
    415
  27. Show *any* graphics as Glyph on a SpeedButton
    542
  29. Rotating Text
    448
  30. Paint a Form with a tiled bitmap image
    413
  31. Is Point in Polygon?
    368
  32. Implementing a lasso drawing technique
    384
Recently updated
  1. Why 100% SEO Guarantees Better User Engagement and How to Achieve It in Your Service
    42
  2. Why SPF and DKIM Are Essential for Linux Email Servers?
    36
  3. How do I create animated background for Google Meet?
    21,028
  4. MaxMind GeoLite2 vs. DB-IP Lite vs. ip-api.com: Choosing the Right Free IP Geolocation Solution
    251
  5. Meet Valkey: Why Redis Changed Its License, Why Valkey is Better, and How to Use It as a Drop-in Replacement
    94
  6. How Rogue Web Scrapers Are Stealing My Content and Destroying My Server
    157
  7. Array of arguments passed to script in PHP
    90
  8. Invalid Auction Storms in Ad Tech
    98
  9. Building MRC-Compliant Instrumentation in Ad Tech: Implementation Steps and Key Challenges
    202
  10. The Two Clocks of Ad Server Architecture
    70
  12. Frequency Cap Architecture Overview
    515
  13. Collecting Proof-of-Play from 100,000 Screens
    146
  14. Vector Search in Relational Databases (RDBs): Trends & Usage Environments
    288
  15. What is RedisVL?
    109
  16. Designing a Skill Registry Architecture: Minimize Token Usage and Maximize AI Performance
    232
  17. TPU & GPU Cluster Management Tools
    245
  18. The Concept of Scaffolding in AI Agents
    234
  19. Beyond Static Pipelines: Architecting LLM Multi-Agent Systems for Autonomous Workflow Orchestration
    583
  20. AI-DLC vs. AI-SDLC: Model-Centric vs. System-Centric AI Development
    259
  21. Fine-Tuning Open-Weight LLMs: Training, Licensing, and Deploying Custom Models with Ollama
    339
  22. Inside the Next-Generation Streaming Architecture: Ultra-Low Latency, SGAI, and AI Codecs
    202
  24. Machine Learning: Training vs. Ranking
    222
  25. The Continuous Learning Machine: Designing a Loop That Actually Turns
    222
  26. The Next-Gen Low-Latency Standards: LL-HLS & MoQ
    195
  27. Designing a Data Curation System Around a Vector Database
    221
  28. Extracting Context from Live Video: The Architecture Got Simpler When We Stopped Building Features
    256
  29. The New Ad Stack Behind Live Sports Streaming: Inside SGAI, EABN, and the Standards Race to Fix Live Monetization
    656
  30. Designing MLOps Architectures to Handle Seasonal Data Drift in EV Fleet Models
    196
  31. From 15 to 40+ FPS: Accelerating PyTorch Object Detection on Automotive ECUs
    219
  32. Understanding Data Lineage
    263