Текущий архив: 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.043 c