[tadalex]

Как можно правильно реализовать следующее.
При правильном вводе пароля в окно формы, должна произойти смена картинки, расположенной на этой же форме. Что бы это изменение увидеть, нужно как-то задержать закрытие формы. Проверка пароля происходит при нажатии на кнопку"Войти". На форме присутствуют два компонента TImage с разными рисунками.
Пробовал разные варианты - не получилось. Вышло только с этим
AnimateWindow(handle, 1000, AW_BLEND or AW_HIDE);
Но при этом происходит плавное закрытие формы, а мне плавно не нужно. В других же случаях у меня просто происходит задержка закрытия формы без изменения картинки, а затем моментальная смена изображения и закрытие формы.

[poli-smen]

Сообщение от tadalex

При правильном вводе пароля в окно формы, должна произойти смена картинки, расположенной на этой же форме. Что бы это изменение увидеть, нужно как-то задержать закрытие формы.

Один из вариантов. Меняешь картинку, делаешь Repaint формы и Sleep(1000).

Сообщение от tadalex

В других же случаях у меня просто происходит задержка закрытия формы без изменения картинки, а затем моментальная смена изображения и закрытие формы.

В каких случаях так происходит?

[NumLock]

странно, что третий вариант не сработал, должен был...)))
при нажатии кнопки "Войти" запускай таймер с нужным интервалом задержки и блокируй все контролы. таймер изначально выключен. в обработчике таймера закрывай форму.

[tadalex]

Например, при использовании Sleep(1000) просто на секунду форма замораживается, затем мгновенная перерисовка с измененной картинкой (которую практически нет возможности рассмотреть) и затем закрытие формы.
Думал обойтись без таймера, но попробую ваши предложенные варианты. О результате отпишусь.
Спасибо всем ответившим!

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMTIMER(var Msg: TMessage); message WM_TIMER; 
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image2.Visible:=True;
  Image1.Visible:=False;
  Button1.Enabled:=False;
  SetTimer(Handle, 1, 1000, nil);
end;

procedure TForm1.WMTIMER(var Msg: TMessage);
begin
  KillTimer(Handle, 1);
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image2.Visible:=False;
  Image1.Visible:=True;
end;

end.

[poli-smen]

Сообщение от tadalex

Например, при использовании Sleep(1000) просто на секунду форма замораживается,

Так и должно быть. Sleep "усыпляет" поток на указанный интервал времени.

Сообщение от tadalex

затем мгновенная перерисовка с измененной картинкой (которую практически нет возможности рассмотреть) и затем закрытие формы.

Поэтому сначала сделай перерисовку формы с изменённой картинкой с помощью Repaint, а потом уже усыпляй поток.

[tadalex]

Огромное спасибо за примеры и советы! К сожалению, на работу надо убегать, вечером буду разбираться.