RichEdit

开发平台：

Delphi

PropFrm.cpp：源码内容

							//---------------------------------------------------------------------------
#include <vclvcl.h>
#pragma hdrstop
#include "PropFrm.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TfrmProp *frmProp;
//---------------------------------------------------------------------------
__fastcall TfrmProp::TfrmProp(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmProp::btnChangePictureClick(TObject *Sender)
{
  Form1->OpenDialog1->Title = "Changing Image";
#if __BORLANDC__ > 0x0530
  Form1->OpenDialog1->Filter = "Graphics(*.bmp;*.wmf;*.ico;*.jpg)|*.bmp;*.wmf;*.ico;*.jpg|All(*.*)|*.*";
#else
  Form1->OpenDialog1->Filter = "Graphics(*.bmp;*.wmf;*.ico)|*.bmp;*.wmf;*.ico|All(*.*)|*.*";
#endif
  if (Form1->OpenDialog1->Execute())
    Image1->Picture->LoadFromFile(Form1->OpenDialog1->FileName);
}
//---------------------------------------------------------------------------

						