как сделать зацикливание окна с кнопками?

@issus · Регистрация: 07.12.2011

Author24 — интернет-сервис помощи студентам

как сделать зацикливание окна с кнопками
когда я нажимаю да чтобы оно еще раз вышло поверх и так бесконечно
вот код что нужно писать после then

Delphi

1	if messageDlg('вы действительно хотите выйте?',mtinformation,[mbYes,mbNo],1)=mryes then

@Ice_and_Fire · 19.09.2012, 18:24

Delphi

1 2	repeat until messageDlg('вы действительно хотите выйте?',mtinformation,[mbYes,mbNo],1)<>mryes

@issus · 19.09.2012, 23:14 **[ТС]**

Delphi

1 2	repeat until messageDlg('вы действительно хотите выйте?',mtinformation,[mbYes,mbNo],1)<>mryes

так только почемуто 1 раз еще это же ввйдет, а потом закроется.

19.09.2012, 23:24

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  repeat
  until messageDlg('вы действительно хотите выйте?', mtInformation, [mbYes, mbNo], 1) <> mrYes
end;

Пока не нажмёшь "Нет" так и будет выводиться.

@Nutserus · 19.09.2012, 23:28

Бесконечно нада так.

Delphi

1 2	while 2012=2012 do messageDlg('вы действительно хотите выйте?', mtInformation, [mbYes, mbNo], 1);

19.09.2012, 23:37

Тогда уж

Delphi

1 2	while True do ...

но к вопросу ТС, это отношения не имеет.

	19.09.2012, 23:37