Systray

[Talker]

Hvordan kan jeg få et program til å ligge nede på systrayen?

Med høyreklikk snarvei og greier...

[tasle]

Det blir for mye å forklare her. Last heller ned en komponent som ordner det. LMD eller Jedi...

[kilogram]

Det finns og ein haug slike komponentar hos torry.net.

[dalai]

man må deklarere en API funksjon:

 

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" _

(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

 

i tillegg må man deklarere en struktur som kan håndtere systray-ikonet

 

Private Type NOTIFYICONDATA

cbSize As Long '//størrelsen

hwnd As Long '//hendel

uId As Long '//ubrukt

uFlags As Long '//Flagg

uCallBackMessage As Long '//WM

hIcon As Long '//hvilket ikon som skal brukes

szTip As String * 64 '//ToolTip er strengen som

'//dukker opp når musen holdes over ikonet

End Type

 

 

Så kommer noen konstanter som brukes

 

Private Const NIM_ADD = &H0 '//Flag : "ALL NEW nid"

Private Const NIM_MODIFY = &H1 '//Flag : "ONLY MODIFYING nid"

Private Const NIM_DELETE = &H2 '//Flag : "DELETE THE CURRENT nid"

Private Const NIF_MESSAGE = &H1 '//Flag : "Message in nid is valid"

Private Const NIF_ICON = &H2 '//Flag : "Icon in nid is valid"

Private Const NIF_TIP = &H4 '//Flag : "Tip in nid is valid"

 

 

Nå kan du deklarere systray-ikon variabelen din

 

Private nid As NOTIFYICONDATA

 

 

 

Slik skal form_activate() se ut:

(laster opp ikonet i systrayen)

Private Sub Form_Activate()

 

With nid

.cbSize = Len(nid)

.hwnd = Me.hwnd

.uId = vbNull

.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

.uCallBackMessage = WM_MOUSEMOVE

.hIcon = (her skal du velge ikonet ditt)

.szTip = "ToolTip Tekst her" & vbNullChar

End With

 

Shell_NotifyIcon NIM_ADD, nid

End Sub

 

 

 

Og legg denne i form_unload

 

Shell_NotifyIcon NIM_DELETE, nid

 

 

håper dette hjelper

[dalai]

hmm... ta med disse konstantene også så går det nok bra..

 

 

Private Const WM_MOUSEMOVE = &H200 '//This is our CallBack Message

Private Const WM_LBUTTONDOWN = &H201 '//LButton down

Private Const WM_LBUTTONUP = &H202 '//LButton up

Private Const WM_LBUTTONDBLCLK = &H203 '//LDouble-click

Private Const WM_RBUTTONDOWN = &H204 '//RButton down

Private Const WM_RBUTTONUP = &H205 '//RButton up

Private Const WM_RBUTTONDBLCLK = &H206 '//RDouble-click

[tasle]

Hva har dette med Delphi å gjøre ? Det ser ut som Visual Basic...

[dalai]

oops...

 

sånn går det når man progger i flere språk.

 

ja, ja dette er ihvertfall hvordan man får systray-ikon i visual basic

[tasle]

Alternativet i Delphi går noe á la dette (avhengig av komponenet og -navn):

 Systray1.Execute;

 

 

Moralen er at komponenter er lettvint å bruke...

[michaenh]

Ta en titt på dette:

http://delphi.about.com/library/weekly/aa121801a.htm