|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Закрытие формы с задержкой
Как можно правильно реализовать следующее.
При правильном вводе пароля в окно формы, должна произойти смена картинки, расположенной на этой же форме. Что бы это изменение увидеть, нужно как-то задержать закрытие формы. Проверка пароля происходит при нажатии на кнопку"Войти". На форме присутствуют два компонента TImage с разными рисунками. Пробовал разные варианты - не получилось. Вышло только с этим AnimateWindow(handle, 1000, AW_BLEND or AW_HIDE); Но при этом происходит плавное закрытие формы, а мне плавно не нужно. В других же случаях у меня просто происходит задержка закрытия формы без изменения картинки, а затем моментальная смена изображения и закрытие формы. |
#2
|
||||
|
||||
Цитата:
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
tadalex (14.12.2012)
|
#3
|
||||
|
||||
странно, что третий вариант не сработал, должен был...)))
при нажатии кнопки "Войти" запускай таймер с нужным интервалом задержки и блокируй все контролы. таймер изначально выключен. в обработчике таймера закрывай форму. Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
tadalex (14.12.2012)
|
#4
|
|||
|
|||
Например, при использовании Sleep(1000) просто на секунду форма замораживается, затем мгновенная перерисовка с измененной картинкой (которую практически нет возможности рассмотреть) и затем закрытие формы.
Думал обойтись без таймера, но попробую ваши предложенные варианты. О результате отпишусь. Спасибо всем ответившим! |
#5
|
||||
|
||||
Код:
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. Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
tadalex (14.12.2012)
|
#6
|
||||
|
||||
Цитата:
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
tadalex (14.12.2012)
|
#7
|
|||
|
|||
Огромное спасибо за примеры и советы! К сожалению, на работу надо убегать, вечером буду разбираться.
|
#8
|
|||
|
|||
Что-то не получается. Может по коду легче будет подсказать?
Код:
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. |
#9
|
||||
|
||||
Попробуйте создать таймер с интервалом закрытия и в обработчике таймера его выключить, и соответственно при закрытии формы запускаете таймер, потом если таймер выключился, то можно закрывать форму.
|
Этот пользователь сказал Спасибо sariman за это полезное сообщение: | ||
tadalex (15.12.2012)
|
#10
|
||||
|
||||
Пишу программы за еду. __________________ |