Мой DELPHI – Программирование

Вопрос:
Как ограничить длинну текста, вводимого в TEdit, так чтобы ширина текста не превышала
ширину TEdit'а?

Ответ:

В примере приведено два
способа ограничить длинну текста в TEdit так чтобы она не превышала ширину клиентской
области окна TEdit’а и не появлялась прокрутка текста. Первый способ устанавливает
свойство TEdit’а MaxLength равным числу букв “W”, которые поместятся в TEdit.
“W” выбрана потому, что является, наверное, самой широкой буквой в любом шрифте.
Этот метод сносно работает для шрифтов с фиксированной шириной букв, но для
шрифтов с переменной шириной букв вряд ли сгодится. Второй способ перхватывает
событие KeyPress TEdit’а и измеряет ширину уже введенного текста и ширину нового
символа. Если ширина больше чем клиентская область TEdit’а новый символ отбрасывается
и вызывается MessageBeep. Прочитать остальную часть записи »

Урок 13: OLE

1. Обзор

Из статьи Вы узнаете
основные сведения об OLE, некоторые
вещи относительно OLE 2 и OLE
Automation. В статье рассказывается об использовании
объекта TOLEContainer для построения
OLE приложения в Delphi.

2. Основы OLE

Прежде, чем перейти к рассмотрению основ OLE,
потребуется изучить терминологию.

Аббревиатура OLE
обозначает Objects Linked and Embedded (Присоединенные
И Встроенные Объекты – ПИВО J ).
Данные, разделяемые между приложениями называются OLE объектом.
Приложение, которое может содержать OLE
объекты, называют OLE контейнером
(OLE Container). Приложение, данные из которого можно
включить в OLE контейнер
в виде OLE объекта, называют OLE
сервером. Прочитать остальную часть записи »