Новые книги

Данная книга в основном посвящена программированию в среде GNU/Linux. Авторы применяют обучающий подход, последовательно излагая самые важные концепции и методики использования расширенных возможностей системы GNU/Linux в прикладных программах. Читатели научатся писать программы, к интерфейсу которых привыкли пользователи Linux; освоят такие технологии, как многозадачность, многопотоковое программирование, межзадачное взаимодействие и взаимодействие с аппаратными устройствами; смогут улучшить свои программы, сделав их быстрее, надежнее и безопаснее; поймут особенности системы GNU/Linux, ее ограничения, дополнительные возможности и специфические соглашения.

Книга предназначена для программистов, уже знакомых с языком С и имеющих базовый опыт работы в GNU/Linux.
В этой книге автор представляет собранные по крупицам приемы и способы работы со словом, предложением, текстом. Всем, кто осваивает профессию копирайтера, будет полезно проанализировать массу интересных примеров из практики отечественных (и не только) рекламистов: от слоганов крупных компаний до причудливых фраз маленьких фирм. Книга приучает четко выражать свои мысли, перечитывать, анализировать и адекватно оценивать придуманное. Для рекламистов, маркетологов, специалистов по связям с общественностью, всех тех, кто пишет рекламные тексты.

Вопрос и Ответ 59

Вопросы и Ответы


      59. Как создать кнопку во время работы приложения?

      Для создания кнопки, во время работы приложения, необходимо выполнить всего два шага:

      • Создать кнопку;
      • Установить необходимые свойства этой кнопки.

      При правильном создании объекта, в данном случае кнопки, этот объект при уничтожении формы будет автоматически уничтожен, но желательно всегда самим уничтожать все объекты созданные в процессе работы приложения. Это убережет Вас от многих проблем.

      Пример:

      ............

        ............
        public

          { Public declarations }
          MyButton: TButton;
          PROCEDURE MyButtonDown(Sender: TObject);

        end;


    • ............

      procedure TForm1.FormCreate(Sender: TObject);
      begin

        MyButton := TButton.Create(Self);
        WITH MyButton DO BEGIN

          Parent := Self;
          Caption := 'Кнопка';
          Left := 0;
          Top := 0;
          OnClick := MyButtonDown;

        END;

      end;

      ............

      PROCEDURE TForm1.MyButtonDown(Sender: TObject);
      BEGIN

        WITH Sender AS TButton DO

          MessageDlg('Нажата '+Caption, mtInformation, [mbOk], 0);

      END;

      ............

      procedure TForm1.FormDestroy(Sender: TObject);
      begin

        MyButton.Free;

      end;

      ............

      P.S. Таким же образом создаются и другие компоненты.


...предыдущая страница первая...
оглавление



"Вопрос и Ответ 59"
Copyright © "В помощь Веб-Мастеру" (Alexander D. Belyaev) 2005-2024 .
При перепечатке любого материала видимая ссылка на источник "В помощь Веб-Мастеру" и все имена, ссылки авторов обязательны!
Время генерации страницы: 0.006