[Ar4ers]

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

Код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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тобы при открытии второй формы не выходило это сообщения

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

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

Код:

1	Timer1.Enabled := False;