При нажатии на кнопку проверить условие, если оно правильное перейти на другую форму

У меня существует кнопка, при ее нажатии, я должна перейти на другую форму, но при этом должна проверить три условия:

  1. Заполнен ли ComboBox, если нет, то вывести сообщение;
  2. Заполнен ли Edit, если нет, то вывести сообщение;
  3. И задать вопрос user'у уверен ли он в правильности введенных данных.

Если эти все условия верны, то я должна перейти на другую форму и свернуть эту.

code: #delphi
if ( Edit37.Text='' ) then 
  Showmessage('Введите фамилию соц.работника') 
else
if ( ComboBox1.Text='' ) then 
  Showmessage('Введите месяц') else
if ( MessageDlg('Вы уверены в правильности введенных данных???', mtConfirmation, [mbYes, mbNo], 0) = mrYes ) then 
begin
  Form3.Show;
  Form2.Hide;
end;

автор: Dr.Acula

Поделиться:

Похожие статьи: