Мышь над компонентом

[Johnson]

Здравствуйте, уважаемые!
Подскажите пожалуйста самый правильный способ проверки нахождения мыши над нужным компонентом.
В частности - делаю свой компонентик на основе TPanel, и нужно сделать его прокрутку колесом мыши...
Заранее спасибо!

[mutabor]

Как не подсказать дедушке Ленину

Есть события OnMouseEnter и OnMouseLeave, происходят при вхождении мыши на компонент и его покидании.

Совет: TPanel бедноват на события, можно унаследоваться от TWinControl.

[Stilet]

самый правильный способ проверки нахождения мыши над нужным компонентом.

Ну окромя способа Мутабора, можно еще прикрутить проверку примерно такого содержания:

var t:TWinControl;
begin
 t:=FindVCLWindow(Mouse.CursorPos);
 if t<>nil then begin
  if t=Panel1 then Над панелью такой-то
 end;
end;

Но эта проверка для конкретного события или операции. Т.е. тут нужно подумать когда и в каком случае тебе нужны данные такого плана. Ибо не всегда OnMouseEnter и OnMouseLeave могут сработать.

[chertovich]

Повторюсь но:

var
  Form1: TForm1;
  B: Boolean;  //True - над компонентом

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseEnter(Sender: TObject);
begin
  B := True;
end;

procedure TForm1.Panel1MouseLeave(Sender: TObject);
begin
  B := False;
end;

[Johnson]

Сообщение от chertovich

Повторюсь но:

во-первых, с помощью условных флагов и сам додумался сразу, но я стараюсь отказываться от них. мне больше импонируют событие-ориентированые методы... во-вторых, для каждого экземпляра класса нужно будет заводить отдельный флаг... в-третьих, этот способ ещё приемлим для классов, описаных прямо в коде проекта, но не очень удобен для использования компонентов...

Совет: TPanel бедноват на события, можно унаследоваться от TWinControl

это я знаю... панель использую просто как черновик... в дальнейшем будет либо ТКастомПанель, либо ТВинКонтрол, либо вобще ТОбьект... думать ещё надо...

Ну окромя способа Мутабора, можно еще прикрутить проверку примерно такого содержания:

это уже интереснее... только вот теперь другой вопрос - как это реализовать прямо в описании класса компонента, откуда будет проблематично получить данные о экземпляре класса? (делаю компонент визуальный, который будет инсталироваться в дельфю)

[Stilet]

как это реализовать прямо в описании класса компонента

В каком смысле? Где нужна проверка?

проблематично получить данные о экземпляре класса?

Почему проблематично?

[Johnson]

есть паскалевский код. в нем описание моего класса. создаю пакадж и инсталирую в дельфи (2009). Не знаю как правильно это назвать. тоесть компонент появляется в "палитре". кидаешь этот компонент на форму - и работаешь с ним... вобщем всё как с обычной ТПанель. Как оттуда получить данные о каждом экземпляре класса - я не знаю. нужно както делать проверку и обрабатывать прокрутку колеса мыши...
ЗЫ сори, что обьясняю кривоязычно, теорию не учил, программист-самоучка...

[mutabor]

Наследуйся от TWinControl и обрабатывай MouseWheel, единственное условие - компонент должен быть в фокусе, иначе событие получать не будет.

[Stilet]

Как оттуда получить данные о каждом экземпляре класса

Какого класса? Того что ты создал? Так Self еше не отменили.
Либо же тебе нужно перебрать все твои "панели" в контейнере куда ты их поместил? Тогда если ты конечно имеешь в своем классе свойство Parent: TWinControl; можно пройтись по нему, а точнее по его содержимому:

 with parent do
  for i:=0 to ControlsCount-1 do begin
    if Control[i] is Нужный класс then Нужный класс(Control[i]).Его Свойство
  end;

[ZuBy]

секция protected

procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;

var
 fWheel := 0; // это при create

procedure TКомпонент.CMMouseWheel(var Message: TCMMouseWheel);
var
  IsNeg: boolean;
begin
  with Message do
  begin
    Inc(fWheel, WheelDelta);
    while Abs(fWheel) >= WHEEL_DELTA do
    begin
      IsNeg := fWheel < 0;
      fWheel := Abs(fWheel) - WHEEL_DELTA;
      if (IsNeg) then
      begin
        if fWheel <> 0 then fWheel := -fWheel;
        // тут код
      end
      else  begin
       // тут код
      end;
    end; // while ... do
    Refresh;
  end; // message
end;

вот так у меня сделано в одном из компонентов, как сказали выше нужен фокус чтобы компонент принимал CM_ сообщения