Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 36 стр.

                                      - 36 -


ни (заданного свойством Interval в миллисекундах) после установки булева
свойства Enabled в TRUE ('остановить' таймер можно также присвоением
Value=0).
   Задержать выполнение программы на mSecs миллисекунд можно также с
помощью следующей процедуры:

procedure TForm1.Delay(mSecs: longint);
{ ждет mSecs миллисекунд
  ... это всё из кладезей народной мудрости
  в области WINDOWS-программирования... }
var
    FirstTick: longint;
begin
FirstTick := GetTickCount; { запомнить начало отсчета }
repeat
    Application.ProcessMessages; { ... дать поработать другим
                                   приложениям WINDOWS ! }
until
    GetTickCount - FirstTick >= mSecs; { интервал истек ? }
end;

   Настоятельно обращаю внимание на обязательность применения метода
ProcessMessages - в противном случае другие приложения WINDOWS 'пови-
снут' вследствие 'захвата' всех ресурсов системы данным приложением (в
WINDOWS'NT не столь критично).

5.2. КОМПОНЕНТ TEdit

   Компонент TEdit (верхний в первой слева колонке на рис.6, в палитре
компонентов находится на странице Standart) является однострочным тек-
стовым редактором и служит для ввода пользователем произвольной строки
(которая в дальнейшем может быть преобразована, например, в число); для
вывода данных используется редко.
   Введенный текст содержится в свойстве Text. Считывание информации из
компонента TEdit для последующего использования производится согласно
следующей схемы (считая, что имя TEdit-компонента есть Edit1)

var WorkString: string; { переменная типа Pascal-строки }
......................
WorkString:=Edit1.Text;

   Часть текста в окне редактирования может быть выделена - свойства Sel-
Start и SelLength определяют начало и длину выделенной части (в количест-
ве символов), сам выделенный текст содержится в строке SelText. Метод
ClearSelection исключает из текста выделенный фрагмент, а метод SelectAll