Siemka
Chciałbym zrobić, żeby po udanym zalogowaniu wyłączyło się okno logowania(form1) jak i również pojawiło się form2
Kod do logowania:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text = 'user') and (Edit2.Text = 'password')then
form2.showmodal
else MessageBox(handle, 'Login lub Hasło jest nie prawidłowe', 'Logowanie', Mb_Ok + Mb_IconWarning);
end;
Tutaj uses:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
Chciałem pod form2.showmodal dodać form1.close, ale się wyświetla błąd i nie wiem o cho chodzi.
Proszę o Pomoc
Pozdrawiam
Szymon