Задержка выполнения 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.

[000060]