|
#1
|
|||
|
|||
Требуется помощь
Мне нужно написать программу, чтобы вначале выводилась заставка, дальше окно ввода пароля, а после ввода пароля запускалась сама программа. Подскажите как это можно реализовать.
З.Ы. Вопрос наверно дурацкий, но я уже кучу литературы перелопатил, а ответ на него не нашел... |
#2
|
||||
|
||||
Первая программа на Delphi? Зачем искать какую-нибудь литературу по этому вопросу?
Создаёшь новую форму, кидаешь картинку- вот тебе заставка, только выводи её раньше основной. Создаёшь еще одну форму на неё Edit для ввода пароля, если он верен, то скрываешь эту и показываешь основную форму, если нет - завершаешь приложение Application.Terminate; Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#3
|
|||
|
|||
Да это первая программа.
Спасибо за совет. P.S Подскажите, как переключаться между формами чтобы не возникало ошибок при компиляции? |
#4
|
|||
|
|||
И еще вопрос: как в Delphi можно создать таблицу наподобии Excel?
|
#5
|
|||
|
|||
TStringGrid
|
#6
|
||||
|
||||
У форм есть методы Show и Hide - показать и скрыть форму
а также свойство Visible - устанавливая true или false добьёшься того же. кстати для заставки полезна процедура Sleep(milliseconds: Cardinal); для задержки выполнения программы, напр: Код:
Form2.Show; Sleep(1000); Form2.Hide; Тогда и можешь показывать форму с паролем. Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#7
|
|||
|
|||
Спасибо!
|
#8
|
|||
|
|||
Подскажите пожалуйста, как можно сделать чтобы окно программы прокручивалось скроллом мыши?
|
#9
|
||||
|
||||
Немного не понял вопрос, но тебе наверно надо компонент TScrollBox с вкладки Additional
Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#10
|
|||
|
|||
Цитата:
Когда добавляешь много компонентов на форму и они не вмещаются - появляется полоса прокрутки , а после запуска программы мышинный скролл у меня почему то не прокручивает (надо тянуть бегунок), хотя во всех виндовых окнах скролл работает нормально |
#11
|
||||
|
||||
Можно прокручивать форму самостоятельно с пом-ю процедуры Form1.ScrollBy;
поэксперементируй с ней в событиях OnMouseWheelUp и OnMouseWheelDown Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#12
|
||||
|
||||
Ты не правильно понял его. Тебе поможет AutoScroll - свойство формы. Оно у тебя установлено в False (скорее всего ).
|
#13
|
||||
|
||||
Цитата:
Код:
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin Form1.ScrollBy(0,-10); end; procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin Form1.ScrollBy(0,10); end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|