Главная страница
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.044 c
14-1104695408
juice
2005-01-02 22:50
2005.01.23
Фоновый скрипт


14-1104831853
Shama_n
2005-01-04 12:44
2005.01.23
Где можно скачать mSQL сервер под WIN32?


6-1099832307
X3M
2004-11-07 15:58
2005.01.23
Послать параметры скрипту на удалённом сервере


14-1105092511
Empleado
2005-01-07 13:08
2005.01.23
Спасибо Королевству


14-1104773912
Aldor_
2005-01-03 20:38
2005.01.23
Обособление интерфейсной части в программе. Способы.