|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
ограни4ение времени
Привет всем помогите решить простую зада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. |
#2
|
||||
|
||||
Переведите?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
смысле я не понял
|
#4
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
Открыл гугле переводчик теперь надеюсь будет ясно. Коро4е на первой форме поставил таймер на 10 сек после 10 сек выходит сообщения "Время истекло" А как сделать так 4тобы при открытии второй формы не выходило это сообщения
|
#6
|
||||
|
||||
Так остановите таймер, да и всех делов.
Код:
Timer1.Enabled := False; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |