procedure TZYBLBJFrm.Button1Click(Sender: TObject);
var c : TCheckBox;
begin
c := TCheckBox.Create(nil);
c.Parent := SRichViewEdit1.RichViewEdit;
c.Font.Charset := ANSI_CHARSET;
c.Font.Name :='ЛОМе';
c.Font.Size := 12;
c.Font.Color := clBlue;
c.Name := 'CheckBox'+inttostr(SRichViewEdit1.RichViewEdit.ControlCount+1);
c.Caption := '¶аСЎПоДї';
c.Color:=clWhite;
SRichViewEdit1.RichViewEdit.InsertControl('teste', c, rvvaAbsMiddle);
SRichViewEdit1.ActiveEditor.Format;
end;
МнјУґъВл
-
- Site Admin
- Posts: 17602
- Joined: Sat Aug 27, 2005 10:28 am
- Contact: