Кнопка - как в html

[Vovik]

Люди, а как сделать кнопку, как ссылки на html страницах?

[RayShade]

Сделай лейбл, который будет менять свой шрифт на подчеркнутый при наведении на него мыши (MouseMove) и обрабатывай Label_Click, чтобы производить действия по нажатию мыши.

[Vovik]

Сделай лейбл, который будет менять свой шрифт на подчеркнутый при наведении на него мыши (MouseMove) и обрабатывай Label_Click, чтобы производить действия по нажатию мыши.

Я так пробовал... оно иногда глюкает(не срабатывает).... а по другому никак нельзя?

[Amed]

Мона. Используй api-функцию GetCursorPos. Она возвращает положение курсора (в пикселах). Затем определи положение твоего label относительно края экрана

Код: Выделить всё

lblLeft=Form.Left + Label1.Left)/Screen.TwipsPerPixelX
lblTop=(Form.Top + Label1.Top)/Screen.TwipsPerPixelY
lblWidth=Label1.Width/Screen.TwipsPerPixelX
lblHeight=Label1.Height/Screen.TwipsPerPixelY

По таймеру смотри, не находится ли курсор в пределах label и если находится, то делай текст подчёркнутым...

Код: Выделить всё

If Cursor.X > lblLeft and cursor.X < lblLeft + lblWidth Then
If Cursor.Y > lblTop and cursor.Y < lblTop + lblHeight Then
Label1.Font.Underline=True
Label1.ForeColor=RGB(0,0,255)
Else:
Label1.Font.Underline=False
Label1.ForeColor=RGB(0,0,0)
End If
End If


И так для каждого label на форме.

[Vovik]

Сиб.. большое!!!

[Kostyan]

Люди, вы гоните, это-ж способ через ж...пу. Единственно правильный (с точки зрения оптимальности) способ это обработка MouseMove и Click

[Vovik]

Люди, вы гоните, это-ж способ через ж...пу. Единственно правильный (с точки зрения оптимальности) способ это обработка MouseMove и Click

Да я уже понял... Но тоже способ!

[XPraptor]

Kostyan:
А как ты определишь по MouseMove что курсор сошел с лабеля?
Чтобы вернуть прежний текст если юзер передумал кликать.
Особенно если на форме контрол на контроле и контролом погоняет, да еще и Visible=False куча висит до поры до времени.

[A.A.Z.]

Kostyan:
А как ты определишь по MouseMove что курсор сошел с лабеля?

Хоть я и не Kostyan, но это можно определить по Form_MouseMove

[Kostyan]

Спасибо A.A.Z. Я немного опоздал с ответом.

[XPraptor]

Ребята! Вы как ламеры ей богу! Я же написал, что на форме нет свободного пространства, ВСЯ ФОРМА ЗАНЯТА СОТНЕЙ КОНТРОЛОВ. Если Вы не в курсе, то Form_MouseMove происходит когда мыша двигается над пустым участком формы, а не над контролами. Поэтому я и спрашиваю КАК ВЫ ОПРЕДЕЛИТЕ ЧТО МЫШЬ УШЛА С КОНТРОЛА!!!!!!!!! Для сотни контролов проверку будете писать друг для друга в MouseMove?