Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выключение кнопок в DBNavigator 
:(
    Опции темы
Poseidon
Дата 18.5.2005, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 3
Всего: 133



Код
{ Расширение DBNavigator: позволяет разработчику включать и выключать 
отдельные кнопки через методы EnableButton и DisableButton } 

unit GNav; 

interface 

uses 

  Windows, Messages, SysUtils, Classes, Graphics, Controls, 
  Forms, Dialogs, ExtCtrls, DBCtrls; 

type 
  TMyNavigator = class(TDBNavigator) 
  public 
    procedure EnableButton(Btn: TNavigateBtn); 
    procedure DisableButton(Btn: TNavigateBtn); 
  end; 

procedure Register; 

implementation 

procedure TMyNavigator.EnableButton(Btn: TNavigateBtn); 
begin 
  Buttons[Btn].Enabled := True; 
end; 

procedure TMyNavigator.DisableButton(Btn: TNavigateBtn); 
begin 
  Buttons[Btn].Enabled := False; 
end; 

procedure Register; 
begin 
  RegisterComponents('Samples', [TMyNavigator]); 
end; 

end. 



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »


 




[ Время генерации скрипта: 0.0831 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.