RegisterClass(TPersistentClass(AComponent.ClassType));
if AComponent is TWinControl then
if TWinControl(AComponent).ControlCount > 0 then
for i:= 0 to (TWinControl(AComponent).ControlCount-1) do RegisterComponentClasses(TWinControl(AComponent).Controls[i]);
end;
var Stream: TMemoryStream; UniqueReader: TUniqueReader; Writer: TWriter; 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;
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; // Иллюстративное приращение счетчика, задающее некоторую реальную работу обработчику события OnChange Label1.Caption:= IntToStr(StrToIntDef(Label1.Caption, 0) + 1); // Завершение цикла InProc:= FALSE; end; end;
end.
var Stream: TMemoryStream; UniqueReader: TUniqueReader; Writer: TWriter; 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; // Иллюстративное приращение счетчика, задающее некоторую реальную работу обработчику события OnChange Label1.Caption:= IntToStr(StrToIntDef(Label1.Caption, 0) + 1); // Завершение цикла InProc:= FALSE; end; end;
end.