Тема: Блокированная TForm
Показать сообщение отдельно
  #2  
Старый 14.08.2011, 08:52
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
  
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Enabled:=False;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием