Самое примитивное окно содержит указанный текст и кнопку OK для закрытия окна. Вызвать такое окно можно процедурой ShowMessage(), параметром которой является текст - он и будет отображён в окне. Модифицируем нашу мини-программу, убрав TLabel и заменив строку вывода:
procedureTForm1.Button1Click(Sender: TObject);
varA: Integer;
begin
A:=StrToInt(Edit1.Text);
A:=Sqr(A);
ShowMessage(IntToStr(A));
end;
В этом случае мы увидим следующее:
Следует обратить внимание на то, что пока окно сообщения находится на экране, интерфейс программы блокируется, а также прекращается выполнение дальнейших команд. Только после нажатия на кнопку программа продолжит свою работу.
