Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.04.2012, 07:43   #1
mp4
 
Аватар для mp4
 
Регистрация: 16.04.2012
Сообщений: 5
По умолчанию Как сделать рандомный заголовок окна?

Помогите сделать заголовок окна рандомным при каждом запуске программы!

Мне дали код:
Код:
function RandomPassword(PLen: Integer): string;
 var
   str: string;
 begin
   Randomize;
   //string with all possible chars
  str    := 'abcdefghijklmnopqrstuvwxyz-@#&$@&!(';
   Result := '';
   repeat
     Result := Result + str[Random(Length(str)) + 1];
   until (Length(Result) = PLen)
 end;


В Form1 в событии OnCreate пиши  Randomize;
Form1.Caption := RandomPassword(10);
Но куда его вставить я не понимаю, кому не сложно объясните)
mp4 вне форума Ответить с цитированием
Старый 16.04.2012, 08:04   #2
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Цитата:
Сообщение от mp4 Посмотреть сообщение
В Form1 в событии OnCreate пиши Randomize;
Form1.Caption := RandomPassword(10);
Тут же написано куда вставлять
FaTaL вне форума Ответить с цитированием
Старый 16.04.2012, 08:07   #3
mp4
 
Аватар для mp4
 
Регистрация: 16.04.2012
Сообщений: 5
По умолчанию

Цитата:
Сообщение от FaTaL Посмотреть сообщение
Тут же написано куда вставлять
Прописываю, не работает. Может что не так делаю... Основной код привязываю к форме, не работает(

Я могу выложить исходник программы, может кто прикрутит код? Все уже перепробовал, не получается...
mp4 вне форума Ответить с цитированием
Старый 16.04.2012, 08:47   #4
denisbrain
Форумчанин
 
Регистрация: 29.05.2011
Сообщений: 449
По умолчанию

Цитата:
Сообщение от mp4 Посмотреть сообщение
Прописываю, не работает. Может что не так делаю... Основной код привязываю к форме, не работает(

Я могу выложить исходник программы, может кто прикрутит код? Все уже перепробовал, не получается...
не знаю чем это поможет...
Вложения
Тип файла: zip удалить_30_04_2012.zip (195.0 Кб, 14 просмотров)
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype
denisbrain вне форума Ответить с цитированием
Старый 16.04.2012, 08:49   #5
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Вот работающий пример.
УПД denisbrain, обогнали
Вложения
Тип файла: zip example.zip (208.7 Кб, 21 просмотров)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 16.04.2012, 08:54   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

перейдите в дизайнер (вид формы), по свободному месту ФОРМЫ сделайте двойной щелчок мышкой, откроется процедура на событие формы OnCreate: туда вставьте данный код (для проверки вообще можете написать вообще одну строчку кода:
Код:
Caption := TimeToStr( Now );
а вообще, на любое событие компонента код вешается так:
выделяете в дизайнере нужный компонент, переходите в броузер свойст объекта (Object Inspector), там есть закладочка Events, переходите на неё. Открывается полный список событий, которые обрабатывает данные компонент. Двойной щелчок справа от нужного события (там где название процедуры обработки должно быть) и вуаля - вы в редакторе кода, где уже создан шаблон для нужного события.


Цитата:
Я могу выложить исходник программы, может кто прикрутит код? Все уже перепробовал, не получается...
имхо, самому научится и интереснее и, главное, намного полезнее! Но если хотите, выкладывайте исходники.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.04.2012, 09:02   #7
mp4
 
Аватар для mp4
 
Регистрация: 16.04.2012
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
перейдите в дизайнер (вид формы), по свободному месту ФОРМЫ сделайте двойной щелчок мышкой, откроется процедура на событие формы OnCreate: туда вставьте данный код (для проверки вообще можете написать вообще одну строчку кода:
Код:
Caption := TimeToStr( Now );
а вообще, на любое событие компонента код вешается так:
выделяете в дизайнере нужный компонент, переходите в броузер свойст объекта (Object Inspector), там есть закладочка Events, переходите на неё. Открывается полный список событий, которые обрабатывает данные компонент. Двойной щелчок справа от нужного события (там где название процедуры обработки должно быть) и вуаля - вы в редакторе кода, где уже создан шаблон для нужного события.



имхо, самому научится и интереснее и, главное, намного полезнее! Но если хотите, выкладывайте исходники.
Пожалуйста, покажите на примере моих исходников, пытаюсь делать так как вы сказали, не получается, возможно что-то все таки не правильно делаю... Хотелось бы увидеть наглядно как должен выглядеть код.
Вложения
Тип файла: zip norec.zip (5.2 Кб, 19 просмотров)
mp4 вне форума Ответить с цитированием
Старый 16.04.2012, 11:09   #8
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
пытаюсь делать так как вы сказали, не получается, возможно что-то все таки не правильно делаю...
что не получается?! В объект испектор перейти? Мышкой по форме дважды щёлкнуть?! Код вставить в открывшийся редактор кода? Что не получается?!!!

Цитата:
бы увидеть наглядно как должен выглядеть код.
извольте!
Unit1.rar
я вставлял в ваш код нужные методы ручками (ибо Вы используете туеву кучу дополнительных библиотек, которых у меня нет!).
проверьте, вроде бы должно работать!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.04.2012, 15:41   #9
mp4
 
Аватар для mp4
 
Регистрация: 16.04.2012
Сообщений: 5
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
что не получается?! В объект испектор перейти? Мышкой по форме дважды щёлкнуть?! Код вставить в открывшийся редактор кода? Что не получается?!!!


извольте!
Вложение 49694
я вставлял в ваш код нужные методы ручками (ибо Вы используете туеву кучу дополнительных библиотек, которых у меня нет!).
проверьте, вроде бы должно работать!
Спасибо, но я сам уже все сделал) Просто не туда вставлял событие OnClick, посмотрел на примерах выше и понял в чем ошибка)

Доп. библиотеки это AlphaControls)
mp4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заголовок окна doniyor Общие вопросы Delphi 3 14.07.2009 01:23
Как сделать так, чтобы форму можно было тостать не только за заголовок? Никки Общие вопросы Delphi 1 04.09.2008 14:34
Заголовок у окна Михаил Юрьевич Общие вопросы Delphi 1 22.02.2008 00:08
Как сделать чтобы дочерние окна в MDI-приложениях были вне главного окна??? dimonchuk Общие вопросы Delphi 1 11.08.2007 12:13
Как скрыть заголовок окна? 1nurik1 Общие вопросы Delphi 4 28.05.2007 11:26