Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

InputQuery и PasswordChar   Найти похожие ветки 

 
AndreySoft   (2005-01-06 13:00) [0]

В событии OnShow главной формы пишу:
...
InputQuery("Ввод пароля","Введите пароль:",tmppass);
...
Всё происходит так как мне и надо - форма ещё не появилась и выскакивает запрос на ввод пароля.
Всё было бы ничего, да вот TEdit этого InputQuery не имеет свойства PasswordChar:="*"; и толку от этого запроса никакого.
Подскажите, можно ли в процессе программы изменить свойство PasswordChar этому Edit"у из этого InputQuery и как.

если нет, то я попробывал вызывать уже созданную форму кодом
...
FormEnterPassword.ShowModal;
...
Звучит глупо, но почему то не хочет работать, говорит что типа Read of address 00000000.
Странно но раньше когда я пробывал применять этот ShowModal - всё работало.


 
Leshiy ©   (2005-01-06 14:07) [1]

http://www.nmarket.ru/program/delphi/lessons-2/les-14.php


 
AndreySoft   (2005-01-06 14:29) [2]

а с InputQuerry ничего нельзя сделать?


 
AndreySoft   (2005-01-06 14:37) [3]

Вы не поверите, но когда я написал в OnCreate главной формы:
...
Application.ShowMainForm:=False;
...
как и советовали в ссылке указанной чуть выше,
то программа просто проигнорировала эту строчку и показала мне главную форму.


 
VMcL ©   (2005-01-06 14:41) [4]

>>AndreySoft  (06.01.05 14:37) [3]

Указанную строку следует написать до создания любой из форм, а не в OnCreate.


 
AndreySoft   (2005-01-06 14:53) [5]

хорошо... сделал как Вы предложили.
вот так у меня выглядит код *.dpr
program PDD_Server;

uses
 Forms,
 Unit1 in "Unit1.pas" {Form1},
 Unit2 in "Unit2.pas" {FormComps},
 Unit3 in "Unit3.pas" {FormPassword},
 Unit4 in "Unit4.pas" {FormEnterPassword};

{$R *.res}

begin
 Application.Initialize;
 Application.ShowMainForm:=False;
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TFormComps, FormComps);
 Application.CreateForm(TFormPassword, FormPassword);
 Application.CreateForm(TFormEnterPassword, FormEnterPassword);
 Application.Run;
end.


Надеюсь здесь я указал эту строчку до создания всех процедур?

Всё равно появляется главная форма


 
AndreySoft   (2005-01-06 15:01) [6]

блин, прикол заключался в том что у главной формы нужно было установить значение Visible в False :-)



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

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.03 c
14-1105167737
Девушка
2005-01-08 10:02
2005.01.23
Вспоминая ветку про шлейфы на IXBT


1-1105604589
LML
2005-01-13 11:23
2005.01.23
Иконки из PNG


14-1104509367
Константинов
2004-12-31 19:09
2005.01.23
Сеть своими руками.


3-1103275873
Zloy
2004-12-17 12:31
2005.01.23
импорт данных в dbf из файлы excel


14-1104612996
GanibalLector
2005-01-01 23:56
2005.01.23
Математики стоят на пороге уничтожения криптографии...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский