Главная страница
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.035 c
10-1107435819
HollowMan
2005-02-03 16:03
2005.11.13
Инициализация переменных во внутреннем сервере автоматизации DLL


1-1130228385
Vriter
2005-10-25 12:19
2005.11.13
Расширение CheckListBox


1-1130165850
Katya2100000000
2005-10-24 18:57
2005.11.13
Светящийся Label


14-1129720995
Digitman
2005-10-19 15:23
2005.11.13
doc/xls/rtf <-> xml/xsl


14-1129931799
LordOfRock
2005-10-22 01:56
2005.11.13
FlashGet VS GeRet Deluxe