[Ar4ers]

Привет всем помогите решить простую зада4ку. Нужно чтобы не выходило ограни4ение времени, а именно showmessage на таймере когда открывало form2

Код:

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='password'
then
begin
form2.Show;
Form1.Hide;
end
else
begin
MessageDlg('',mtError,[mbOK],0);
form1.close;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
showmessage('Время работы программы истекло ');
form1.close;
end;
end.

[Страдалецъ]

Переведите?

[Ar4ers]

смысле я не понял

[Страдалецъ]

Привет всем помогите решить простую зада4ку. Нужно чтобы не выходило ограни4ение времени, а именно showmessage на таймере когда открывало form2

Вот это переведите со своего языка на русский.

[Ar4ers]

Открыл гугле переводчик теперь надеюсь будет ясно. Коро4е на первой форме поставил таймер на 10 сек после 10 сек выходит сообщения "Время истекло" А как сделать так 4тобы при открытии второй формы не выходило это сообщения

[Страдалецъ]

Так остановите таймер, да и всех делов.

Код:

 Timer1.Enabled := False;