Gnom3 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: var   RichEditViewer1: TRichEditViewer;   procedure MemoKeyPress(Sender: TObject; var Key: Char); begin   Key := #0; end;   procedure MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin   Key := 0; end;   procedure InitializeWizard(); begin   WizardForm.WelcomeLabel2.Hide;   WizardForm.WelcomeLabel1.Hide;     { RichEditViewer1 }   RichEditViewer1 := TRichEditViewer.Create(WizardForm);   with RichEditViewer1 do   begin     Parent := WizardForm.WelcomePage;     Align := alRight;     Width := ScaleX(333);     ReadOnly := true;     RTFText := WizardForm.WelcomeLabel2.Caption;     OnKeyDown := @MemoKeyDown;     OnKeyPress := @MemoKeyPress;   end; end; Всего записей: 864 | Зарегистр. 14-11-2010 | Отправлено: 16:41 05-04-2012 | Исправлено: Gnom3, 16:43 05-04-2012

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

articlebot (13-10-2013 23:33): продолжение темы - №15

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование