Как поместить TCheckBox внутри TRichEdit?
Для использования следующего примера, необходимо создать новую форму, перетащить на неё TRichEdit (RichEdit1) и создать checkbox (acb) в событии FormCreate().
procedure
TForm1.FormCreate(Sender: TObject);
var
Acb: TCheckBox;
begin
RichEdit1.Left :=
20
;
Acb := TCheckBox.Create(RichEdit1);
Acb.Left :=
30
;
Acb.Top :=
30
;
Acb.Caption :=
'my checkbox'
;
Acb.Parent := RichEdit1;
end
;
высококачественные
септик из бетонных колец
, загородного дома
сетчатые контейнеры cargo
Пансионат Донская Здравница:
лечение наркомании
. Лечение наркомании за 4 часа.