Кусок кода

Vlad Oshin
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
Список читателей / Версия для печати / Разместить анонс / Заявить о нарушении
Другие произведения автора Vlad Oshin
Рецензии
Написать рецензию
Другие произведения автора Vlad Oshin