Главная страница
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.034 c
9-1096788065
Delphis
2004-10-03 11:21
2005.01.23
как сделать так, чтобы на любом разрешении визуальное оформление


3-1103206423
Shizuku
2004-12-16 17:13
2005.01.23
Управляющие запросы


11-1087538847
TRUF
2004-06-18 10:07
2005.01.23
EnhCombos KOL Component


1-1105452842
saNat
2005-01-11 17:14
2005.01.23
Выделенный пункт в ListBox


1-1105314179
Фёдор Мегатронов
2005-01-10 02:42
2005.01.23
Алгоритм деления файла на фрагменты.