Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.11.2010, 03:07   #1
quarty
Форумчанин
 
Аватар для quarty
 
Регистрация: 09.10.2010
Сообщений: 124
По умолчанию Как сделать чтоб при нажатии кнопки форма не работала?

Как сделать чтоб при нажатии кнопки форма в значении работает стояло нет?
делал так, но ошибка, помогите
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Enabled:=True;
end;
quarty вне форума Ответить с цитированием
Старый 05.11.2010, 07:47   #2
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Код:
Form1.Enabled:=False;
True - да, False - нет.
_-Re@l-_ вне форума Ответить с цитированием
Старый 05.11.2010, 09:43   #3
GunSmoker
Старожил
 
Регистрация: 13.08.2009
Сообщений: 2,581
По умолчанию

Цитата:
Сообщение от quarty Посмотреть сообщение
форма в значении работает стояло нет?
А теперь ещё раз, но по-русски.
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
GunSmoker вне форума Ответить с цитированием
Старый 05.11.2010, 10:01   #4
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Расшифровываю : как сделать так чтобы при нажатии кнопки значение свойства Enabled у формы было False?
_-Re@l-_ вне форума Ответить с цитированием
Старый 05.11.2010, 14:29   #5
quarty
Форумчанин
 
Аватар для quarty
 
Регистрация: 09.10.2010
Сообщений: 124
По умолчанию

_-Re@l-_,
я же такой код и имелл ввиду
Цитата:
Form1.Enabled:=False;
у меня выбивает ошибку
quarty вне форума Ответить с цитированием
Старый 05.11.2010, 15:21   #6
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Вот странно, а почему тогда у меня всё работает без ошибок?
Вот полный код приложения:
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
      Form1.Enabled:=False;
      Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      Form1.Enabled:=True;
      ShowMessage('Hoorah!');
      Timer1.Enabled:=False;
end;

end.
Интервал таймера стоит 5 секунд.
_-Re@l-_ вне форума Ответить с цитированием
Старый 05.11.2010, 15:50   #7
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от quarty Посмотреть сообщение
у меня выбивает ошибку
Какую такую ошибку ? Приведите текст ошибки.
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать при нажатии кнопки новое окно quarty Общие вопросы Delphi 9 01.11.2010 14:06
Как при нажатии одной кнопки занести информацию в 2 таблицы k0libry Microsoft Office Excel 4 31.01.2010 22:58
Как реализовать, чтобы при нажатии на кнопку, сворачивалась активная дочерняя форма ActiveMDIChild? Иванесс Помощь студентам 2 01.03.2009 14:11
как сделать так что при изменении разрешения экрана программа работала... Victor[famas] Общие вопросы Delphi 7 13.02.2008 12:48
что нужно сделать, чтобы при нажатии кнопки запускалась процедура mager Общие вопросы Delphi 15 19.11.2006 15:02