wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 59 -> Версия для печати

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

Вопрос и Ответ 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. Таким же образом создаются и другие компоненты.

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

Rambler's Top100