Form as tooltip?

#1
redmandotred

Posted 30 July 2006 - 18:50

Junior Member

Grup: Members
Posts: 28
Înscris: 01.07.2006

Cum sa fac pt ca o forma sa fie afisata ca tooltip? (bineinteles, fara ca forma originala sa-si piarda focus-ul)?

Am doua forme: A si B. cand sa zicem ajung cu (virgula) cursorul pe un buton aflat pe A sa apara B ca tooltip (fara sa pun dupa ce se incarca B, A.setfocus)

Back to top

#2
RAZ

Posted 03 August 2006 - 09:07

Member

Grup: Members
Posts: 1,227
Înscris: 15.10.2004

Cu ShowWindow + SW_SHOWNOACTIVATE

Test (VB6):
1.Fa un nou proiect si adauga un modul (*.bas)
2.In modul declara ShowWindow asa:

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_HIDE = 0

3.Adauga o noua ferestra (Form2), aceasta va fi tooltipul
4.Pe primul Form (Form1) adauga un Button + urmatorul cod:

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Form2.Visible = False Then
	ShowWindow Form2.hwnd, SW_SHOWNOACTIVATE
  End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Form2.Visible Then
	 ShowWindow Form2.hwnd, SW_HIDE
End If
End Sub

5.Compileaza: Cand vei misca mouse-ul pe buton va aparea Form2 fara ca Form1 sa-si piarda focusul :peacefingers:

Back to top

#3
hErr

Posted 07 August 2006 - 13:52

Member

Grup: Members
Posts: 738
Înscris: 16.12.2003

mai trebuie adaugat un apel la SetCapture(Form1.hWnd) inainte de afisarea tooltip-ului si un apel ReleaseCapture() la sfirsit. asta deoarece se poate intimpla ca forma gazda sa nu primeasca al doilea MouseMove, atunci cind misti mausul prea repede si iti ramine tooltipul pe ecran.

Back to top

Anunturi

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

Form as tooltip?

#1 redmandotred Posted 30 July 2006 - 18:50

#2 RAZ Posted 03 August 2006 - 09:07

#3 hErr Posted 07 August 2006 - 13:52

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
redmandotred

Posted 30 July 2006 - 18:50

#2
RAZ

Posted 03 August 2006 - 09:07

#3
hErr

Posted 07 August 2006 - 13:52