Главная страница
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.217 c
4-1126266591
MF
2005-09-09 15:49
2005.11.13
Да уж... :(


2-1129905872
DelphiLexx
2005-10-21 18:44
2005.11.13
Master a delphi помогите в создании класса


8-1110227158
Sash1988
2005-03-07 23:25
2005.11.13
Графика в OpenGL


2-1129720063
Df23
2005-10-19 15:07
2005.11.13
Не понимаю, почему так.


5-1109742825
Аюс
2005-03-02 08:53
2005.11.13
FreeNotification(Self) принцип работы ?