Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Наследник от TStringGrid   Найти похожие ветки 

 
Quattro ©   (2005-10-21 15:14) [0]

Добрый день! подскажите пожалуйста, почему 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.


 
clickmaker ©   (2005-10-21 15:17) [1]

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


 
Quattro ©   (2005-10-21 15:48) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
3-1127815972
ANB
2005-09-27 14:12
2005.11.13
(Oracle) Как правильно написать триггер для автоприсвоения ID


2-1130168260
serko
2005-10-24 19:37
2005.11.13
Экспорт данных в Excel


2-1129226653
Delphman
2005-10-13 22:04
2005.11.13
Сравнение двоичных чисел


3-1128058553
Ruslan D
2005-09-30 09:35
2005.11.13
несколько DBdataset в FastReport 3


6-1122136315
kami
2005-07-23 20:31
2005.11.13
Переслать несколько больших файлов Client/Serv Socket