Советы по Delphi. Версия 1.0.6

Данная функция может оказаться весьма полезной в случае наличия нескольких одинаковых областей на форме с необходимостью синхронизации изменений в течение некоторого промежутка времени. Процедура создания дубликата проста до безобразия: разместите на TPanel или на другом родительском компоненте необходимые элементы управления и сделайте: "newpanel := DuplicateComponents(designedpanel)".

uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, IniFiles, TypInfo, Debug;

type TUniqueReader = Class(TReader)
 LastRead: TComponent;
 procedure ComponentRead(Component: TComponent);
 procedure SetNameUnique(Reader: TReader; Component: TComponent; var Name: string);
end;

implementation

procedure TUniqueReader.ComponentRead(Component: TComponent);
begin
 LastRead:= Component;
end;

procedure TUniqueReader.SetNameUnique( // Задаем уникальное имя считываемому компоненту, например, "Panel2", если "Panel1" уже существует
 Reader: TReader; Component: TComponent; // Считываемый компонент
 var Name: string // Имя компонента для дальнейшей модификации
);
var
 i: Integer;
 tempname: string;
begin
 i:= 0;
 tempname:= Name;
 while Component.Owner.FindComponent(Name) <> nil do begin
 Inc(i);
 Name:= Format('%s%d', [tempname, i]);
 end;
end;

function DuplicateComponents(
 AComponent: TComponent // исходный компонент
): TComponent; // возвращаемся к созданию нового компонента
 procedure RegisterComponentClasses(AComponent: TComponent);
 var i : integer;
 begin
 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;

События

Создание

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

на примере переопределения события в 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;