Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];

Вниз

Button, как определить какая кнопка активна в данный момент   Найти похожие ветки 

← →
saint   (2004-09-03 15:01) [0]

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

---

← →
Плохиш ©   (2004-09-03 15:03) [1]

OnEnter

---

← →
Семен Сорокин ©   (2004-09-03 15:07) [2]

ControlAtPos

---

← →
saint   (2004-09-03 15:08) [3]

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

---

← →
Ega23 ©   (2004-09-03 15:08) [4]

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;


---

← →
saint   (2004-09-03 15:10) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c