 |
|
Палитра компонентов Standard
Кнопка (TButton).
Кнопка в Delphi происходит от объекта Tbutton. Щёлкни по изображению кнопки на палитре компонентов. После этого щёлкни по форме в любом месте. На форме сразу же появится кнопка с заголовком Button1. За заголовок формы отвечает свойство Caption. Изменим свойство Name у кнопки на MyFirstButton. Изменим имя формы. Для этого сними выделение с кнопки (щёлкни в любом месте формы). Вверху окна, должна загореться надпись Form1 TForm. Найди здесь свойство Name и измени его значение на MainForm (это переводится как - главная форма). Попробуй запустить программу (нажми F9).
Усложните пример с помощью события, когда нажимается кнопка. Перейди на закладку Events и выберите событие OnClick. Для кнопки есть такое же событие.
Надписи (TLabel).
Этим компонентом мы будем пользоваться практически в каждом примере, выводя надписи для других компонентов. Создай новое приложение. Брось на форму один компонент TLabel и измени у него свойство Caption на «Это моя первая программа». У тебя должно получится нечто подобное.
Строки ввода (TEdit).
С помощью строк ввода мы постоянно будем вводить различную информацию в наши программы.
1. Создай новый проект. Брось на него два компонента TEdit с палитры компонентов Standard и одну кнопку. Теперь создай для кнопки обработчик события OnClick. Напиши в нём следующее:
procedure TForm1.MyFirstButtonClick(Sender: TObject);
Begin
Edit2.Text:=Edit1.Text; end;
По нажатию кнопки я копирую содержимое свойства Text компонента Edit1 в свойство Text компонента Edit2. Попробуй запустить программу. Теперь введи в первую строку ввода какой-нибудь текст, а потом нажми кнопку. Во второй строке ввода появится тот же текст.
2. Теперь измени у первой строки ввода свойство PasswordChar на звёздочку «*». Теперь запусти программу и попробуй ввести в эту строку текст. Вместо текста будут появляться звёздочки, как при вводе пароля в какой-нибудь программе:
Именно таким образом делаются строки ввода паролей. Попробуй нажать на кнопку и во вторую строку ввода перенесётся текст, который ты вводил. Давай теперь сделаем проверку на ввод пароля. Найди в процедуре обработчик события OnClick для кнопки и напиши там следующее:
procedure TForm1.MyFirstButtonClick(Sender: TObject);
Begin
if Edit1.Text='password' then
Edit2.Text:='Пароль верный'
Else Edit2.Text:='Неверно'; end;
Попробуй запустить программу. Если ты введёшь в первую строку ввода слово password и нажмёшь кнопку, то во второй строке появится надпись «Пароль верный», иначе будет надпись «Пароль неверный».
