Читать «Советы по Delphi. Версия 1.0.6» онлайн - страница 50

begin
 result:= nil;
 UniqueReader:= nil;
 Writer:= nil;
 try
  Stream:= TMemoryStream.Create;
  RegisterComponentClasses(AComponent);
  try
   Write:= TWriter.Create(Stream, 4096);
   Writer.Root:= AComponent.Owner;
   Writer.WriteSignature;
   Writer.WriteComponent(AComponent);
   Writer.WriteListEnd;
  finally
   Writer.Free;
  end;
  Stream.Position:= 0;
  try
   UniqueReader:= TUniqueReader.Create(Stream, 4096);     // создаем поток, перемещающий данные о компоненте в конструктор
   UniqueReader.OnSetName:= UniqueReader.SetNameUnique;
   UniqueReader.LastRead:= nil;
   if AComponent is TWinControl then UniqueReader.ReadComponents( // считываем компоненты и суб-компоненты
    TWinControl(AComponent).Owner, TWinControl(AComponent).Parent, UniqueReader.ComponentRead
   )
   else UniqueReader.ReadComponents( // читаем компоненты
    AComponent.Owner, nil, UniqueReader.ComponentRead
   );
   result:= UniqueReader.LastRead;
  finally
   UniqueReader.Free;
  end;
 finally
  Stream.Free;
 end;
end;

События

Создание

Создание события во время выполнения приложения

на примере переопределения события в Memo:

memo.onchange:= memo1Change;
procedure TForm1.Memo1Change(Sender: TObject);
begin
 panel1.caption:= 'Содержимое было изменено';
end;

Задержка выполнения

Задержка выполнения OnChange (Delphi 2)

В случае нажатия пользователем клавиши или изменении текущего элемента компонента ComboBox, вы обратите внимание на досадную задержку, возникающую при генерации события OnChange.

Так как "работа кипит", я хотел бы отреагировать на изменение ItemIndex несколько позднее, например, 100 миллисекунд спустя. Вот что у меня получилось. Созданный в Delphi2, код подходит также и для Delphi 1. На простой форме располагаем компоненты ComboBox и Label. Необходимым дополнением является вызов Application.ProcessMessages, позволяющий избежать замедления работы PC, когда очередь сообщений для формы пуста.

unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
const
 // Просто некоторая константа сообщения
 PM_COMBOCHANGE = WM_USER + 8001;
 // 500 миллисекунд
 CWantedDelay = 500;
type TForm1 = class(TForm)
 ComboBox1: TComboBox;
 Label1: TLabel;
 procedure ComboBox1Change(Sender: TObject);
private
 procedure PMComboChange(var message : TMessage); message PM_COMBOCHANGE;
public
end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 PostMessage(Handle, PM_COMBOCHANGE, 0, 0);
end;
procedure TForm1.PMComboChange(var message : TMessage);
const
 InProc: BOOLEAN = FALSE;
 StartTick: LONGINT = 0;
begin
 if InProc then begin
  // Обновляем стартовое время задержки
  StartTick:= GetTickCount;
 end else begin
  // Организация цикла
  InProc:= TRUE;
  // Инициализация стартового времени
  StartTick:= GetTickCount;
  // Ожидаем истечения стартового времени.
  // Пока стартовое время не исчерпалось, позволяем операционной системе обрабатывать сообщения
  while GetTickCount - StartTick < CWantedDelay do Application.ProcessMessages;