Categories
Keywords
Downloads
Surprise!
This hint is a little surprise. So, you'd have to either read the code and understand what it does or try it out!
- Create a new application (select "File | New Application" from the main menu)
- Select the empty form and double click on it's "OnResize" event
- Change the generated "FormResize()" function to look like the following and run the program.
procedure TForm1.FormResize( Sender: TObject );
var
R : TRect;
DC : HDc;
Canv : TCanvas;
begin
R := Rect( 0, 0, Screen.Width, Screen.Height );
DC := GetWindowDC( GetDeskTopWindow );
Canv := TCanvas.Create;
Canv.Handle := DC;
Canvas.CopyRect( R, Canv, R );
ReleaseDC( GetDeskTopWindow, DC );
end;
var
R : TRect;
DC : HDc;
Canv : TCanvas;
begin
R := Rect( 0, 0, Screen.Width, Screen.Height );
DC := GetWindowDC( GetDeskTopWindow );
Canv := TCanvas.Create;
Canv.Handle := DC;
Canvas.CopyRect( R, Canv, R );
ReleaseDC( GetDeskTopWindow, DC );
end;
Listing #1 : Delphi code. Download surprise (0.33 KB).
To share this: BlinkBits | BlinkList | Blogmarks | Co.mments | Connotea | Del.icio.us | Digg | Facebook | FrankIt | Furl | Ma.gnolia | Newsvine | Reddit | Yahoo
Applicable Keywords : Delphi, Delphi 2.x, Delphi 3.x, Functions, Source Code
Previous Tip : How to call Internet Explorer from Delphi
Random Tip : How to get to your news groups and messages faster
Next Tip : Hint, Hint, Hint; Hint, Hint
Random Tip : How to get to your news groups and messages faster
Next Tip : Hint, Hint, Hint; Hint, Hint