[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]

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

[tadalex]

Что-то не получается. Может по коду легче будет подсказать?

Код:

unit LogonForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, SecurityModul, Vcl.Buttons,
  Vcl.Imaging.pngimage;

type
  Tfrm_Logon = class(TForm)
    btn_Cancel: TBitBtn;
    btn_Ok: TBitBtn;
    edt_Login: TEdit;
    edt_Password: TEdit;
    img_Close: TImage;
    img_Open: TImage;
    lbl_Login: TLabel;
    lbl_Password: TLabel;

    procedure btn_OkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StringsChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  protected
    status: byte;
    fw: TFileWork;
  public
    procedure WMTIMER(var Msg: TMessage); message WM_TIMER;
    property success: byte read status write status;
  end;

var
  frm_Logon: Tfrm_Logon;
  count: integer;

implementation

uses MainForm;

{$R *.dfm}

procedure Tfrm_Logon.btn_OkClick(Sender: TObject);
begin
  if fw.CheckUser(edt_Login.Text, edt_Password.Text) then
  begin
    fw.AddInLog(edt_Login.Text, edt_Password.Text, true);
    img_Close.Visible := false;
    img_Open.Visible := true;
    status := 0;
    close;
  end
  else
  begin
    inc(count);
    if count = 3 then
    begin
      fw.AddInLog(edt_Login.Text, edt_Password.Text, false);
      status := 1;
      close;
    end
    else
      Application.MessageBox
        (PChar('Вы ввели неправильный логин\пароль ' + inttostr(count)
            + ' раз(а) (еще ' + inttostr(3 - count)
            + ' раз(а) можно ошибиться)'), 'Защита');
  end;
end;

procedure Tfrm_Logon.StringsChange(Sender: TObject);
begin
  if (length(edt_Login.Text) = 0) or (length(edt_Password.Text) = 0) then
  begin
    btn_Ok.Enabled := false;
  end
  else
  begin
    btn_Ok.Enabled := true;
  end
end;

procedure Tfrm_Logon.btn_CancelClick(Sender: TObject);
begin
  Close;
end;

procedure Tfrm_Logon.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AnimateWindow(handle, 1000, AW_BLEND or AW_HIDE);  //Закрытие с задержкой но и анимацией. А мне надо просто закрыть с задержкой
end;

procedure Tfrm_Logon.FormCreate(Sender: TObject);
begin
  status := 2;
  count := 0;
  StringsChange(self);
  fw := TFileWork.Create;
end;

procedure Tfrm_Logon.FormDestroy(Sender: TObject);
begin
  fw.Free;
end;

end.

[sariman]

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

[NumLock]

http://zalil.ru/34079049