Delphi

Вопрос

Как загрузить на форму битмап в качестве фона или background'а?

Ответ

С помощью вот такого кода:

var
    Bitmap:TBitmap;
begin
Bitmap := TBitmap.Create;
    try
  Bitmap.LoadFromFile('vgr.bmp');
  Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,Form1.width,Form1.height));
    finally
   Form1.Canvas.Brush.Bitmap := nil;
        Bitmap.Free;
end;

Забиваешь этот код в обработчик onPaint, а в onActivate делаешь form1.refresh, и тогда даже при перекрывании формы другим окном все будет нормально.

GK