[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    Windows, web pages, multimedia programs, etc. have backgrounds. How come your Delphi
    form doesn't?
    --------------------------------------------------------------------------------
    Of course you could place an Image component on your form and set it's Alignment
    to Client to place a background on your form. But, here's another way to do it:

    (1) Add following to your form's Public declarations section:

        bmpBackground : TBitmap;

    (2) Double click on your form and add bitmap initialization code to the
    FormCreate procedure:

        bmpBackground := TBitmap.Create;
        bmpBackground.LoadFromFile( 'c:\windows\setup.bmp' );

    (3) Go to the form's events list and double click on OnPaint. Add following
    line to the FormPaint procedure:

        Canvas.Draw( 0, 0, bmpBackground );

    (4) Finally insert the following code to FormDestroy
    procedure (OnDestroy event):

        bmpBackground.Free;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]