Блог программиста

Как часто задают этот вопрос на форумах. Кажется сколько раз уже приводили решения этой задачи и всеравно находятся люди, которые спрашивают. Потому решил привести простой код, который позволяет добавлять рисунок (TImage) в TRichEdit:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TImage *img = new TImage(RichEdit1);
img->Left = 30;
img->Top = 30;
img->Picture->LoadFromFile("C:\\image.bmp");
img->Parent = RichEdit1;
}

С компонентом TCheckBox код выглядит примерно так же:


void __fastcall TForm1::Button1Click(TObject *Sender)
{
TCheckBox *Check = new TCheckBox(RichEdit1);
Check->Left = 30;
Check->Top = 30;
Check->Caption = "My checkbox";
Check->Parent = RichEdit1;
}

Вот собственно и весь код, который позволяет добавлять рисунки и чекбоксы в RichEdit. Надеюсь вопросов на эту тему в форумах теперь будет меньше и эти примеры кому-то пригодятся