![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Хочу сделать пароль к программе, создал форму, заполнил, а она ругается
Причем на ELSE, вот код, может надо какиенибудь свойства указать? unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin if Edit1.Text='' then begin fmDogovor.Show; Form2.Hide; end; else begin MessageDlg('',mtError,[mbOK],0); close; end; end; procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then button1.Click end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Action :=caFree end; end. |
#2
|
||||
|
||||
![]() точка с запятой перед ELSE не ставится! RTFM
|
#3
|
||||
|
||||
![]() Точку с запятой перед else убери
|
#4
|
|||
|
|||
![]() спасибо, а как сделать чтоб форма с паролем первой появлялась? а то у меня сразу вторая форма
Жутко краснею перед незнанием) |
#5
|
|||
|
|||
![]() Подскажите)
|
#6
|
||||
|
||||
![]() Мею Project-Option, на вкладке Forms выбераешь главную форму. Ну или скрываешь главную форму Form.Visible=False, и отображаешь форму с паролем. если все верно то показываешь главную форму. Вареантов много
|
#7
|
||||
|
||||
![]() Попробуй зайти в Project -> View Source и изменить код на
program Project1; uses Forms, Dialogs, {Обязательно} SysUtils,{Если не добавить этот модуль, нужно убрать строку Beep;} Unit1 in 'Unit1.pas' {Form1}; {$R *.res} var Pas: String; begin Application.Initialize; Application.Run; InputQuery('Введите пароль', 'Пароль:', Pas); if Pas = 'Password'{Здесь введи свой пароль} then begin Application.CreateForm(TForm1, Form1); Application.Run; end else begin ShowMessage('Неверный пароль!'); Beep; Application.Terminate; end; end. |