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

Вниз

run-time   Найти похожие ветки 

 
borg   (2003-05-20 16:28) [0]

как в run-time создать новую форму для ввода и проверки пароля?


 
Skier   (2003-05-20 16:29) [1]

:))
Вроде это уже обсуждалось ?


 
Palladin   (2003-05-20 16:31) [2]


var
VvodIProverkaParola:TFormaDljaVvodaIProverkiParolja;
begin
VvodIProverkaParola:=TFormaDljaVvodaIProverkiParolja;
if VvodIProverkaParola.ShowModal<>mrok then halt;
VvodIProverkaParola.Free;
end;


о как...


 
Anatoly Podgoretsky   (2003-05-20 16:35) [3]

Любые объекты создаются с помощью конструктора Create, а форма точно такой же объект, базовый класс называется TForm


 
borg   (2003-05-20 16:37) [4]

А как можно обработать события созданных в run-time форме и компонентов


 
Skier   (2003-05-20 16:40) [5]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625051&n=19


 
Романов Р.В.   (2003-05-20 16:41) [6]

Для формы ввода пароля все обработчики можно написать и привязать в Design Time


 
borg   (2003-05-20 16:46) [7]

Извините за глупые понятные для вас вещи но проблема не вводе и обработки пароля это я для примера, как создать форму создать на ней компоненты и обработатьих события. Все хелпы которые ячитал делают только на существующею форме, а мне надо на созданной в Run-Time


 
Palladin   (2003-05-20 16:54) [8]


> borg (20.05.03 16:46)

а что такое в твоем понимании существующая форма?


 
Skier   (2003-05-20 16:56) [9]

>borg (20.05.03 16:46)
Конечная цель какая ?
Может быть ты не тем путём идёшь...


 
evvcom   (2003-05-20 17:00) [10]

Создавай в run-time
MyForm := TMyForm.Create(Application);
а потом также в run-time присваивай свойствам/событиям
MyForm.OnShow := MyFormShow;
и т.д.


 
Константин   (2003-05-20 18:06) [11]

inputquery безусловно проще всего....


 
Константин   (2003-05-21 06:44) [12]

Ага
inputquery(pass,"Введите пароль:")
if pass="пароль" then .... else
begin
showmessage("Неверный пароль");
close;
end;


 
Спрашивающий   (2003-05-21 07:22) [13]

Ну можно воспользоваться уже готовыми решениями
например
RxLoginDialog из библиотеки RxLib
Стандартные функции тоже вполне пойдут
function InputBox(const ACaption, APrompt, ADefault: string): string;
function InputQuery(const ACaption, APrompt: string;
var Value: string): Boolean;
А вообще смотри выше создать форму из кнопки и едита
дело 10 минут со всеми обработчиками событий.


 
borg   (2003-05-21 10:05) [14]

нет дело не в вводе и проверки пароля это я для примера, надо создать форму и создать на ней компоненты, это сделанно а как например у созданного Edit описать метод OnKeyPress. С кнопкой всё понятно поставил ModalResult:=mrOk и всё а как с другими событиями*


 
Спрашивающий   (2003-05-21 10:39) [15]

>borg
1.См.Skier © (20.05.03 16:40)
2.Любое событи в рутайме
Edit.OnKeyPress:=E1OnKeyPress;
procedure TForm1.E1OnKeyPress(параметры);
begin
Beep
end;
т.е. ты сам пишешь процедуру(со своим названием) а не как привык делать через инспектор или по клику на элементах.


 
Palladin   (2003-05-21 10:47) [16]

Тебе ссылку кинули!
на кой черт задавать вопросы в форум если не читать ответы?



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
3-2756
Viktor
2003-05-12 05:33
2003.06.02
DBComboBox


14-3169
moore
2003-05-15 18:10
2003.06.02
DBComboBox, DBLookUpComboBox, DBListBox


14-3166
Вячеслав
2003-05-15 11:32
2003.06.02
Гидравлика теплотехника


1-2859
BUTEK
2003-05-20 06:16
2003.06.02
дату и время создания, изменения, открытия файла


3-2761
noteens
2003-05-13 20:04
2003.06.02
строки в DBGrid





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