Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

помогите как осущиствить?   Найти похожие ветки 

 
Masya2001   (2002-12-21 21:20) [0]

У меня есть form1 на ней кнопка fcImageBtn4 надо чтоб принажати
появилось форма 5 в ней должно быть edit1 и кнопка button2.
Вообще замысел такой что то типа пароля...
как сделать чтоб например Form4(типа секретная форма) появилась
только если в Edit1 было нужное слово а на все другие слова и комбинации вылетало form6 форма сообщающая об шибке
как такое осуществить

Короче:
понятнее!

появилася form 5
Если В Edit1 Не слово "delphi" а какое то другое то принажатии
button2 ввыходит форма 6 сообщает что пароль не правилен!
а если там слово delphi то открывается секретное окно!
как это сделать помогите пожалуста!
Надеюсь понятно всё описал.
Жду ответов
Зарание благодарен!


 
Masya2001   (2002-12-21 22:34) [1]

Народ ну помогите???


 
Cobalt   (2002-12-22 00:45) [2]

procedure TForm1.Edit1Change(Sender: TObject);
?


 
Alexei113   (2002-12-22 00:48) [3]

В чем проблема - не вижу ! Простой коплект логических операций
и ВСЁ !


 
Masya2001   (2002-12-22 17:54) [4]

Ну рбьсяните пожалуста подробнее а то я только начал работать с делпхи пожалуста...

Зарание благодарен!


 
The_Vizit0r   (2002-12-22 18:02) [5]

форма появляется командой: form4.show;
для кнопки в втором окне такой код: if edit1.text="delphi" then form5.show;


 
The_Vizit0r   (2002-12-22 18:03) [6]

Хотя если ты даже такую фигню сделать не можешь, то ........
купи себе книжку...........


 
reticon   (2002-12-22 18:36) [7]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = "password" then
Form2.Show
else
ShowMessage("Неправильный пароль!");
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.035 c
1-15114
Groove
2002-12-23 07:06
2003.01.06
ListView размер итема


1-15094
Beginner
2002-12-22 18:53
2003.01.06
Как в RichEdit вставить текст в текущую позицию курсора?


1-15036
Filat
2002-12-19 22:01
2003.01.06
Edit1.Enabled=False; Edit1.Text= парампарам ; Как получить текст?


14-15286
Jeer
2002-12-17 22:08
2003.01.06
Free & Nil


1-15138
hp1100
2002-12-20 20:08
2003.01.06
Загрузка ассоциированных файлов в уже запущенную программу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский