[Nex-T]

Мне нужно написать программу, чтобы вначале выводилась заставка, дальше окно ввода пароля, а после ввода пароля запускалась сама программа. Подскажите как это можно реализовать.
З.Ы. Вопрос наверно дурацкий, но я уже кучу литературы перелопатил, а ответ на него не нашел...

[Rokuell]

Первая программа на Delphi? Зачем искать какую-нибудь литературу по этому вопросу?

Создаёшь новую форму, кидаешь картинку- вот тебе заставка, только выводи её раньше основной.
Создаёшь еще одну форму на неё Edit для ввода пароля, если он верен, то скрываешь эту и показываешь основную форму, если нет - завершаешь приложение Application.Terminate;

[Nex-T]

Да это первая программа.
Спасибо за совет.
P.S Подскажите, как переключаться между формами чтобы не возникало ошибок при компиляции?

[Nex-T]

И еще вопрос: как в Delphi можно создать таблицу наподобии Excel?

[AlexSku]

TStringGrid

[Rokuell]

У форм есть методы Show и Hide - показать и скрыть форму
а также свойство Visible - устанавливая true или false добьёшься того же.
кстати для заставки полезна процедура Sleep(milliseconds: Cardinal);
для задержки выполнения программы, напр:

Код:

Form2.Show;
Sleep(1000);
Form2.Hide;

- форма Form2 станет видимой, а через 1 сек (1000 мс) опять скроется.
Тогда и можешь показывать форму с паролем.

[Nex-T]

Спасибо!

[Nex-T]

Подскажите пожалуйста, как можно сделать чтобы окно программы прокручивалось скроллом мыши?

[Rokuell]

Немного не понял вопрос, но тебе наверно надо компонент TScrollBox с вкладки Additional

[Nex-T]

Сообщение от Rokuell

Немного не понял вопрос, но тебе наверно надо компонент TScrollBox с вкладки Additional

Когда добавляешь много компонентов на форму и они не вмещаются - появляется полоса прокрутки , а после запуска программы мышинный скролл у меня почему то не прокручивает (надо тянуть бегунок), хотя во всех виндовых окнах скролл работает нормально

[Rokuell]

Можно прокручивать форму самостоятельно с пом-ю процедуры Form1.ScrollBy;
поэксперементируй с ней в событиях OnMouseWheelUp и OnMouseWheelDown

[Winny]

Ты не правильно понял его. Тебе поможет AutoScroll - свойство формы. Оно у тебя установлено в False (скорее всего ).

[Yurk@]

Сообщение от Winny

Ты не правильно понял его. ...

Да все Rokuell верно понял:

Код:

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;