как проверить находитсяли курсор на компоненте

[Аватар]

Так вы отловите компоненты непосредственно находящиеся на форме, в т.ч. и TControl. А теперь бросьте на форму панель и на неё что-то и в обработчиках формы распознайте то что-то, над которым курсор находится. Mes.LParam будет возвращать только указатель на панель. Кстати и в вашем примере CMMouseLeave не нужен

[Alexandr17-10]

1 Скажите что эти процедуры делают
procedure CMMouseEnter(var Mes: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Mes: TMessage); message CM_MOUSELEAVE;
2 Как пробежаться по компонентам TPanel не по всем а только по панелькам чтобы полностью закончить работу

procedure TLib_Ed_2.Timer1Timer(Sender: TObject);
var Cur:TPoint;
  LControl:TWinControl;
begin
  GetCursorPos(Cur);
  if (Cur.X >self.left)and(Cur.X <self.left+self.Width)and(Cur.y >Self.top)and(Cur.y < Self.top+Self.Height) then begin
    LControl:=FindVCLWindow(Cur);
    ReadGetIni(ExtractFilePath(Application.ExeName)+'RES Lib Edit\ParamTReadLanguage.data.ini');
    Label3.Caption :=  GetIniStr('TReadLanguageText'+Edit1.Text,'0Language<--')+' '+LControl.Name;
    If LControl.Name='FileBtn' then begin
      ReadGetIni(ExtractFilePath(Application.ExeName)+'RES Lib Edit\ParamTButton_AND_TBitBtn.data.ini');
      If FileBtn.Enabled=true then begin
        If ButtonClickDbl[0]=0 then begin
          (LControl as TPanel).Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledYesClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Color');
          (LControl as TPanel).Font.Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledYesClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Font-->Color');
          (LControl as TPanel).Font.Size:=GetIniInt('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledYesClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Font-->Size');
          (LControl as TPanel).Caption:=GetInistr('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledYesClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Caption');
          (LControl as TPanel).BorderStyle:=TBorderStyle(GetIniInt('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledYesClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->BorderStyle'));
        end;
        If ButtonClickDbl[0]=1 then begin
          (LControl as TPanel).Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Color');
          (LControl as TPanel).Font.Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Font-->Color');
          (LControl as TPanel).Font.Size:=GetIniInt('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Font-->Size');
          (LControl as TPanel).Caption:=GetInistr('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Caption');
          (LControl as TPanel).BorderStyle:=TBorderStyle(GetIniInt('LibxEditorParameter'+Edit1.Text,'YesSelectYesEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->BorderStyle'));
        end;
      end else begin
        (LControl as TPanel).Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'YesSelectNoEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Color');
        (LControl as TPanel).Font.Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'YesSelectNoEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Font-->Color');
        (LControl as TPanel).Font.Size:=GetIniInt('LibxEditorParameter'+Edit1.Text,'YesSelectNoEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Font-->Size');
        (LControl as TPanel).Caption:=GetInistr('LibxEditorParameter'+Edit1.Text,'YesSelectNoEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->Caption');
        (LControl as TPanel).BorderStyle:=TBorderStyle(GetIniInt('LibxEditorParameter'+Edit1.Text,'YesSelectNoEnabledNoClick<--'+Name+'-->'+(LControl as TPanel).Name+'-->BorderStyle'));
      end;
    end else begin
    end;
  end;
end;

Пока что демо код

[northener]

Сообщение от Аватар

Так вы отловите компоненты непосредственно находящиеся на форме, в т.ч. и TControl. А теперь бросьте на форму панель и на неё что-то и в обработчиках формы распознайте то что-то, над которым курсор находится. Mes.LParam будет возвращать только указатель на панель.

Да. Вы правы.

[Alexandr17-10]

Может кто ответит на это сообщение: http://www.programmersforum.ru/showp...9&postcount=22

 For I := 0 to ComponentCount - 1 do
        If (Components[I].Name='FileBtn')or(Components[I].Name='EditBtn') then begin
          (Components[I] as TPanel).Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->Color');
          (Components[I] as TPanel).Font.Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->Font-->Color');
          (Components[I] as TPanel).Font.Size:=GetIniInt('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->Font-->Size');
          (Components[I] as TPanel).Caption:=GetInistr('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->Caption');
          (Components[I] as TPanel).BorderStyle:=TBorderStyle(GetIniInt('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->BorderStyle'));
        end;

этот код почемута изменяет компонент

[evg_m]

1 Скажите что эти процедуры делают
procedure CMMouseEnter(var Mes: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Mes: TMessage); message CM_MOUSELEAVE;

указывают какие процедуры выполнить при поступлении указанных (CM_MOUSEENTER/CMMOSELEAVE) сообщений (message).

2 Как пробежаться по компонентам TPanel не по всем а только по панелькам чтобы полностью закончить работу

if components[i] is TPanel then begin //что-то делаем
    p:=components[i] as Tpanel;
    p.color:=...
    ...

этот код почемута изменяет компонент

а почему он не должен менять если его просят.

(Components[I] as TPanel).Color:=...

[Alexandr17-10]

For I := 0 to ComponentCount - 1 do
        if components[i] is TPanel then
          If (Components[I].Name='FileBtn')or(Components[I].Name='EditBtn') then begin
            (Components[I] as TPanel).Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->Color');
            (Components[I] as TPanel).Font.Color:=GetIniClr('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->Font-->Color');
            (Components[I] as TPanel).Font.Size:=GetIniInt('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->Font-->Size');
            (Components[I] as TPanel).Caption:=GetInistr('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->Caption');
            (Components[I] as TPanel).BorderStyle:=TBorderStyle(GetIniInt('LibxEditorParameter'+Edit1.Text,'NoSelectYesEnabledNoClick<--'+Name+'-->'+(Components[I] as TPanel).Name+'-->BorderStyle'));
          end;

вот какие параметры присваиваются

NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Color=clAqua
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Font-->Color=clBlack
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Font-->Size=12
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->Caption=&Файл
NoSelectYesEnabledNoClick<--Lib_Ed_2-->FileBtn-->BorderStyle=1

и в итоге это получается

[Serge_Bliznykov]

if components[i] is TPanel then

если обрабатываемый I-й компонент имеет тип Tanel

If (Components[I].Name='FileBtn')or(Components[I].Name='EditBtn') then begin

если имя у этого компонента ( У ПАНЕЛИ!!) является "FileBtn" или "EditBtn" тогда ...

Вы уверены, что у Вас есть ПАНЕЛИ с такими именами?!

думаю, что Вы хотели написать примерно такой код:

For i := 0 to ComponentCount - 1 do
        If components[i] is TPanel then
             for j := 0 to components[i].ComponentCount - 1 do
                If (Components[i].Components[j].Name='FileBtn')or(Components[i].Components[j].Name='EditBtn') then begin 
....  тут обрабатывайте найденный Components[i].Components[j]

я написал прямо в браузере, в IDE не проверял. Но смысл моей поправки, надеюсь, Вам понятен?..