设置背景图片

原创于 2009-11-06 11:19:00 发布 · 453 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delete

C++ 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个简单的程序，该程序在 TForm1 类的 FormPaint 事件中加载名为 VistaLuna.bmp 的图片文件，并使用 Delphi 的 TBitmap 组件将其拉伸填充到整个窗体上。此外，在 FormResize 事件中触发窗体刷新，确保在窗口大小改变时图片能够正确显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
    Graphics::TBitmap* pBmp = new Graphics::TBitmap();
    pBmp->LoadFromFile("Vista Luna.bmp");
    TRect MyRect = TRect(0,0,Width,Height);
    Form1->Canvas->StretchDraw(MyRect,pBmp);
    delete pBmp;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
    Form1->Refresh();
}
//---------------------------------------------------------------------------