Hi

I want to make a horizontal menu.  When the user hovers over the menu item(text) then a line appears under
the text to indicate they are on that item.  This is a popular method these days.  Can anyone give
me some suggestions, code snippets for EWB.

Thanks
Godfrey

<< When the user hovers over the menu item(text) then a line appears under
the text to indicate they are on that item. >>

Godfrey:
For the hover effect you can use the MouseEnter and MouseLeave events:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
 TLabel(Sender).Font.Style.Underline := true;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
 TLabel(Sender).Font.Style.Underline := false;
end;

A TLink component is better than a TLabel in this case.

Trinione wrote:

<<A TLink component is better than a TLabel in this case.>>

Thanks that works, but I would like a thicker underline, with a bit of a gap between the text and the line.  Any ideas

Godfrey

Godfrey,

maybe this thread will help you:

http://tinyurl.com/jd7b326

Uli

Uli Becker wrote:

<<maybe this thread will help you:

http://tinyurl.com/jd7b326>>

Yep that looks pretty good

Thanks

<< Thanks that works, but I would like a thicker underline, with a bit of a gap between the text and the line.  Any ideas >>

I believe to do that you would need to create a new component using TLink as a base.