|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.07.2009, 18:39 | #1 |
Форумчанин
Регистрация: 20.07.2009
Сообщений: 421
|
доброе время суток,постараюсь объяснить свою проблему...значит есть мелкая прога form1...и есть еще одна форма form2..при открытии программы form1 деактивируется...а form2 активируется..на form2 есть edit1 и button1... чтобы form1 активировалась нужно ввести в edit1 определенный код и нажать button1...если код верный то form2 должна закрытся а form1 активироваться
я все вроде бы казалось бы сделал правильно...таким образом я хотел сделать своеобразную защиту программы..пока не введешь рег номер программа не заработает Код:
Код:
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
Последний раз редактировалось Stilet; 28.07.2009 в 12:30. |
27.07.2009, 18:53 | #2 |
Программист
Форумчанин
Регистрация: 23.07.2009
Сообщений: 101
|
вот тут вся проблема:
Код:
А на форме2 ты жмешь кнопку и происходит это: Код:
как решать? попробуй это: Код:
засунуть в procedure TForm1.FormCreate(Sender: TObject);
Если вы верите, что можете или не можете
сделать что-то, вы правы в обоих случаях. ______________________________(С) Г.Форд |
27.07.2009, 19:18 | #3 |
Форумчанин
Регистрация: 20.07.2009
Сообщений: 421
|
сделал....компилируется без ошибок...но при открытии пишет access violition at address 0044b362 in module project1.exe read off address 00000358... а form2 вообще не появляется....что может быть??
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
|
27.07.2009, 19:34 | #4 |
Программист
Форумчанин
Регистрация: 23.07.2009
Сообщений: 101
|
ну да...
тогда сделай так: в форме1: Код:
это: Код:
Код:
Если вы верите, что можете или не можете
сделать что-то, вы правы в обоих случаях. ______________________________(С) Г.Форд |
27.07.2009, 19:37 | #5 |
Регистрация: 15.04.2009
Сообщений: 8
|
а не проще сделать Hide и Show?
и потом условие, если edit равен твоему коду, то отображается вторая форма |
27.07.2009, 19:40 | #6 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Проще сделать так:
Первая форма. Код:
Код:
Всегда рад помочь!
|
27.07.2009, 20:40 | #7 |
Форумчанин
Регистрация: 20.07.2009
Сообщений: 421
|
спасибо ребята))))все сработало с помощю show....
а почему когда я добавляю If 198827 = StrToInt(Edit1.Text) Then Form1.Enabled:=True; Form2.Visible:=False; Close; else showmessage('неверный код'); end; пишет что ошибка что то с else не правильно.....подскажите
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
|
27.07.2009, 20:51 | #8 |
Участник клуба
Регистрация: 06.04.2009
Сообщений: 1,524
|
Перед else ";" не ставится
И вот так Код:
|
27.07.2009, 23:21 | #9 |
Форумчанин
Регистрация: 20.07.2009
Сообщений: 421
|
Код:
вот так написал но все равно пишет что ошибка(((( [Pascal Error] Unit2.pas(36): E2029 ';' expected but 'ELSE' found
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
Последний раз редактировалось Stilet; 03.08.2009 в 11:54. |
27.07.2009, 23:26 | #10 |
Форумчанин
Регистрация: 29.05.2009
Сообщений: 384
|
Код:
Последний раз редактировалось Evgeniy26; 27.07.2009 в 23:33. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема при организации формы загрузки... | Oleg Romanchuk | Общие вопросы Delphi | 3 | 23.03.2009 10:48 |
Проблема с отображением формы во внедеренной DLL | Leloush | Общие вопросы Delphi | 10 | 31.01.2009 16:03 |
Проблема при использовании модальной формы | a1ias | Помощь студентам | 10 | 14.11.2008 17:29 |
проблема с показом формы после трея | za4ot | Общие вопросы Delphi | 4 | 21.08.2008 12:35 |
Проблемма с закрытием MDIChild'ов | KirkMETAL | Помощь студентам | 12 | 25.11.2007 07:06 |