13 lines
372 B
ObjectPascal
13 lines
372 B
ObjectPascal
|
{$reference PresentationFramework.dll}
|
|||
|
|
{$apptype windows}
|
|||
|
|
uses System.Windows.Controls;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
//Ошибка: Класс MyTextBox абстрактный и не может иметь атрибут sealed, потому что метод CreateRenderScope не реализован
|
|||
|
|
MyTextBox = sealed class(RichTextBox)
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
new MyTextBox();
|
|||
|
|
end.
|