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

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

Button, как определить какая кнопка активна в данный момент [D6, Win2k, WinXP]

saint ©   (2004-09-03 15:01:00) 

Подскажите, вот у меня на форме есть с 10 кнопок, как определить на какой именно кнопке находится, курсор?

---

saint   (2004-09-03 15:10:00) [1]

ок кажется понял, спасибо!

---

saint   (2004-09-03 15:08:00) [2]

не совсем понял, т.е. мне что для каждой кнопки прописывать events? Или я что -то непонимаю?

---

Ega23   (2004-09-03 15:08:00) [3]

procedure TFMain.AppEvents1Idle(Sender: TObject; var Done: Boolean);
var
i:Integer;
begin
for i:=0 to ControlCount-1 do
 begin
  if not (Controls[i] is TLabel) then Continue;
  if MouseInControl(TWinControl(Controls[i])) then
     TLabel(Controls[i]).Font.Color:=clBlue
  else
     TLabel(Controls[i]).Font.Color:=clBlack;
 end;
end;


---

Семен Сорокин   (2004-09-03 15:07:00) [4]

ControlAtPos

---

Плохиш   (2004-09-03 15:03:00) [5]

OnEnter

---

Наверх