Как выделить метку в Delphi, когда над ней наведена мышь?

Question

Какое событие я использую? И что мне сказать?

procedure TLogin.FormCreate(Sender: TObject);
begin
position:=poScreenCenter;
end;

procedure TLogin.lblHelpClick(Sender: TObject);
begin
Help.Show;
end;

end.

Где я могу использовать код для выделения?

Answer 1

У меня есть решение следующим образом:

1. Набор Прозрачный (Свойства метки) = Ложь
2. Метка события:
   • OnMouseEnter (при наведении курсора на метку)
   • OnMouseLeave (когда курсор находится вне метки)

код как показано ниже:

// On Mouse Enter
procedure TMainForm.lblNameMouseEnter(Sender: TObject);
begin
    lblName.Color := clRed; // assign color that you want
end;

// On Mouse Leave
procedure TMainForm.lblNameMouseLeave(Sender: TObject);
begin
    lblName.Color := clBtnFace; // assign default color
end;

Надеюсь, вы сможете решить эту проблему в ближайшее время.