Главная страница
    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.007 c
1-2934
Polar
2003-05-20 19:06
2003.06.02
Как сделать округление чисел? Уже достало 1.234567890Е0002!!!


14-3174
Kirill
2003-05-08 17:43
2003.06.02
7-zip


8-3022
lds
2003-02-16 20:45
2003.06.02
Overlay


14-3124
corvex
2003-05-13 10:19
2003.06.02
Ошибка 500 при выполнении ISAPI...


6-3029
velsi
2003-04-02 12:38
2003.06.02
Как удалить разщаренный ресурс?





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