|
Code: |
|
procedure ClearEdits; var i : Integer; begin for i := 0 to ComponentCount-1 do if (Components[i] is TEdit) then (Components[i] as TEdit).Text := ''; end; |
Новые статьи
- Как сделать так, чтобы в компонент TEdit можно было вводить текст только на английской раскладке?
- Как назначить событие на увеличение/уменьшение TSpinEdit с помощью стрелочек?
- Как ограничить длинну вводимого текста шириной TEdit'а?
- Как узнать физические координаты каретки в пикселях?
- Как перехватить клавишу табуляции (Tab) в TEdit?
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!