procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=MessageBox(
0,
' Он продавал счастье. '+#13+#10+
' Вокруг продавали все, что угодно: гравитационные пилюли, со, терон. '+#13+#10+
' Он же уже с утра продавал счастье. Не брали. Бывало спрашивали: '+#13+#10+
' - Что? '+#13+#10+
' - Счастье. '+#13+#10+
' - Настоящее? '+#13+#10+
' - Настоящее. '+#13+#10+
' - А чего такое маленькое? '+#13+#10+
' - Такое вот.. '+#13+#10+
' - А чего продаешь? '+#13+#10+
' - Жмет.. '+#13+#10+
' Почему то отходили. Людям же обычно нужны гравитационные пилюли и терон.'+#13+#10+
' Он же продавал счастье.',
'рассказик',
MB_ICONQUESTION or MB_YESNO);
ShowMessage(inttostr(i));
end;
Кусок кода
© Copyright: Vlad Oshin, 2008
Свидетельство о публикации №208081900286
Свидетельство о публикации №208081900286
Рецензии
