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? Или я что -то непонимаю?

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]

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

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