Forms

[ Delphi ] – Make a desktop screenshot

function GetScreenShot: TBitmap;
var
  Desktop: HDC;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(0);
  try
    try More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Show a form in full-screen mode

{
  Make your application Full Screen.
  Disable all of the system keys.
}
procedure TForm1.FormCreate(Sender: TObject);
var
  HTaskbar: HWND;

  OldVal: LongInt;
begin More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Show hints in the Statusbar


private
  procedure MyHint(Sender: TObject);
end;
implementation

procedure TForm1.FormCreate(Sender: TObject);

begin
  Application.OnHint := MyHint;
  ShowHint           := True; More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...