Читать онлайн книгу «Советы по Delphi. Версия 1.0.6».
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
