Главная страница
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.48 MB
Время: 0.028 c
14-1104841168
Dimedrol
2005-01-04 15:19
2005.01.23
Как ставить SPacks на NT4 ?


3-1103666857
Дима
2004-12-22 01:07
2005.01.23
Как добавить запись в БД


1-1105430544
AndyDel
2005-01-11 11:02
2005.01.23
Компонент типа Object Inspectora


4-1102331451
Makuha
2004-12-06 14:10
2005.01.23
Работа с файлами с помощью ф-ций _lopen и _lread.


1-1104907565
WhiteGuy
2005-01-05 09:46
2005.01.23
Приоритет