| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Наследник от TStringGrid [D7, XP]

Quattro ©   (2005-10-21 15:14:00) 

Добрый день! подскажите пожалуйста, почему RBUTTONDOWN не срабатывает второй раз??
type
 TMyTable = class(TStringGrid)
 private
   procedure WMRButtonDown(var Mes:TWMMouse);message WM_RBUTTONDOWN;
 public
   Constructor Create(AOwner:TComponent);override;
 end;
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

constructor TMyTable.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
end;

procedure TMyTable.WMRButtonDown(var Mes: TWMMouse);
begin
inherited;
Enabled:= not Enabled;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Table:TMyTable;
begin
 Table:=TMyTable.Create(Self);
 Table.Parent:=self;
 Table.Left:=382;
 Table.Top:=40;
 Table.Show;
end;

end.


---

Quattro   (2005-10-21 15:48:00) [1]

ок....ясно...спасибо

---

clickmaker   (2005-10-21 15:17:00) [2]

потому что задизэйбленный контрол не получает сообщений от мыши и клавы

---

Наверх