Solved

Irregular form shapes in Win 95

Posted on 1997-06-10
1
152 Views
Last Modified: 2012-05-04
Does anybody know how to make the main application's form irregularly shaped (just like circular clock for Win 95) in Delphi 2 ?

Thanx, Bocian
0
Comment
Question by:Bocian
1 Comment
 
LVL 1

Accepted Solution

by:
ygolan earned 50 total points
ID: 1336949
Take a look at the SetWindowRgn API call.

The following code will create an elliptic window (adapted from UNDU issue #17) :

procedure MakeEllipticForm(Form: TForm);
Var
  R: HRgn;
begin
  R := CreateEllipticRgn(-15,-15,Width+15,Height+15);
  SetWindowRgn(Form.Handle,R,True);
end;


0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Suggested Solutions

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now