Разработка окна авторизации в Delphi, как сделать форму с combobox?

Question

[Stardusts]

Всем доброго вечера! Добрые люди, подскажите пожалуйста, как создать вот такую форму авторизации? Выбор пользователя производится из Combobox, а по кнопке войти должен осуществляться переход на ту форму, которая предназначена например для врача, если выбираем заведующего, то по кнопке войти осуществляется переход на форму для заведующего и тд. Есть 4 пользователя :Регистратор,Заведующий , Врач и Бухгалтер, помогите с кодом, пожалуйста!

Answer 1

[Stockholm Syndrome]

procedure TMainForm.EnterButtonOnClick(Sender: TObject);
var
  Forms: array of TForm;
begin
  Forms := [RegistrarForm, ManagerForm, DoctorForm, AccountantForm]; // ваши формы
  Forms[Combobox.ItemIndex].ShowModal();
end;

Comments

[Stardusts]

Что не так, подскажите пожалуйста

[Stockholm Syndrome]

Stardusts, возможно у вас старая версия делфи, которая не поддерживает литералы массивов
тогда можно так

procedure TMainForm.EnterButtonOnClick(Sender: TObject);
var
  Forms: array of TForm;
begin
  SetLength(Forms, 4);
  Forms[0] := RegistrarForm;
  Forms[1] := ManagerForm;
  Forms[2] := DoctorForm; 
  Forms[3] := AccountantForm;
  Forms[Combobox.ItemIndex].ShowModal();
end;

[Stardusts]

StockholmSyndrome, Минутку, пробую

[Stardusts]

StockholmSyndrome, Да что же такое, компилирует, но при нажатии на кнопку выдает следующую ошибку, я извиняюсь за назойливость, что опять не так? :(

[Stockholm Syndrome]

Stardusts, SetLength не забыли?

[Stardusts]

StockholmSyndrome,

[Stockholm Syndrome]

Stardusts, дело в том, что я забыл ещё одну строчку добавить, а вы вставили его до того, как я отредактировал
посмотрите ещё раз предыдущий мой комментарий

[Stardusts]

StockholmSyndrome, Ой! Точно!!! Глаза уже слипаются ничего не видят.. Огромнейшее Вам человеческое спасибо за помощь в столь поздний час! От всей души благодарю!

[Stockholm Syndrome]

Stardusts, отметьте, пожалуйста, решением, если вам помог ответ

[Stardusts]

StockholmSyndrome, Обязательно)

[Stockholm Syndrome]

Stardusts, ой, совсем забыл про освобождение памяти
в конце ещё добавьте строчку SetLength(Forms, 0);
не помню, есть ли надобность в делфи освобождать динамические массивы, но лучше добавьте)

[Stardusts]

StockholmSyndrome, Хорошо))Спасибо!!