| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

найти контрол

Dy1 ©   (2009-11-04 19:15:00) 

на форме панели, на них по несколько контролов, нужно найти панель под курсором.
Контрол под курсором вероятно form.ControlAtPos(form.Position);
Вопрос: как узнать панель это или, например, метка на этой панели?
Теги использовать нежелательно - заняты.

---

Dy1   (2009-11-06 22:52:00) [1]

свойство Name всегда пустое

---

Dy1   (2009-11-06 21:36:00) [2]

в kol.pas примерно на 36200 строчке есть ф-я:
function TControl.ControlAtPos( X, Y: Integer; IgnoreDisabled: Boolean ): PControl;
var I: Integer;
   C: PControl;
   CR, VR: TRect;
begin
  Result := nil;
  CR := ControlRect;
  if Windowed then
     CR := MakeRect( 0, 0, 0, 0 );
  X := X + CR.Left; // - R.Left;
  Y := Y + CR.Top; // - R.Top;
  for I := ChildCount { + MembersCount } - 1 downto 0 do
  begin
     C := Children[ I ]; //Members[ I ];
     if C.Visible then
     if (not IgnoreDisabled) or IgnoreDisabled and C.Enabled then
     begin
        VR := C.ControlRect;
        if (X >= VR.Left) and (X < VR.Right) and
           (Y >= VR.Top) and (Y < VR.Bottom) then
        begin
           Result := C;
           Exit;
        end;
     end;
  end;
end;
что там делает (not IgnoreDisabled) or IgnoreDisabled? Если нужно что-то одно, то что?

---

MTsv DN   (2009-11-05 23:29:00) [3]

Там вообще везде одни Nam'ы...вот это и правь...

---

MTsv DN   (2009-11-05 23:27:00) [4]

> с {$DEFINE USE_NAMES} появляется 20 Identifier redeclared: 'Name' в KOLEdb. Куда смотреть?
написано же "редикларейтед 'Name'". Значит в KOLEdb тоже есть 'Name'. Переименуй его в объекте и во всем коде. Это же основы ООП...Наследование?

---

Dy1   (2009-11-05 22:37:00) [5]

все 20 указывают на строки вида "var I: Integer;", в этом модуле дефайнов нет. Я не понимаю что и где не так

---

MTsv DN   (2009-11-05 21:11:00) [6]

Смотри в код...

---

Dy1   (2009-11-05 19:27:00) [7]

с {$DEFINE USE_NAMES} появляется 20 Identifier redeclared: 'Name' в KOLEdb. Куда смотреть?

---

Vladimir Kladov   (2009-11-05 16:59:00) [8]

Или Tag.

---

MTsv DN   (2009-11-05 13:07:00) [9]

USE_NAMES и по имени. Лично я использую префиксы (так сложилось): lbl, pnl, btn, tv, lv и т.д.

---

Dy1   (2009-11-04 22:24:00) [10]

интересно что делает IsControl :)

MCK
procedure TForm1.PopMenuNDelMenu(Sender: PMenu; Item: Integer);
var
 cp: TPoint;
begin
 windows.GetCursorPos(cp);
 windows.ScreenToClient(Form1.Form.GetWindowHandle, cp);
 if Form.ControlAtPos(cp.X, cp.Y, ???) ??? then
end;

---

Jon   (2009-11-04 21:59:00) [11]

I hope that I understand you correctly:


program Test;

uses
 Windows, KOL;

var
 Panel, Label1, Label2: PControl;

procedure DoClick(Dummy: Pointer; Sender: PObj);
begin
 if PControl(Sender).Parent = Panel then
   ShowMsg('Child:'+PControl(Sender).Caption,MB_OK)
 else
   ShowMsg('Panel',MB_OK)
end;

begin
 Applet := NewForm(nil,'Test').SetClientSize(120,120);
 Panel := NewPanel(Applet,esRaised).SetAlign(caClient).SetBorder(20);
 Label1 := NewLabel(Panel,'LABEL1');
 Label2 := NewLabel(Panel,'LABEL2').PlaceDown;
 Label1.Color := clRed;
 Label2.Color := clRed;
 Panel.OnClick := TOnEvent(MakeMethod(nil,@DoClick));
 Label1.OnClick := TOnEvent(MakeMethod(nil,@DoClick));
 Label2.OnClick := TOnEvent(MakeMethod(nil,@DoClick));
 Run(Applet);
end.


---

Dy1   (2009-11-04 21:18:00) [12]

а как узнать, что кликнули на label, а не на её панели?

---

Jon   (2009-11-04 20:05:00) [13]

label.parent ?

---

Наверх