, denne artikel vil vise jer, hvordan man starter en ansøgning minimeres med et ikon i systemet bakke (område på den opgave bar), at et ikon i systemet - systemet - er området på den opgave bar, hvor "baggrund" ansøgninger kan placere deres ikoner.at sætte et ikon i bakken, du er nødt til at ringe til shell_notifyicon api - anmeldt i shellapi enhed, at den konstante nim_add (til at fortælle det til at tilføje et ikon) og adresse på tnotifyicondata rekord med ikonet oplysninger, der omfatter klare af ikon, viser, at den tekst, som redskab tip, når mouse er over ikon, håndtaget på vinduet, som vil modtage beskeder på ikonet og meddelelsestypen ikonen vil sende til det vindue.,,, anvender,,,,,, shellapi; denne, wm_icontray = wm_user + 1 //brugerdefinerede besked,,,,,,,,,,,,,,,, var,,,,,,,,, notifyicondata: tnotifyicondata;,,, gennemførelse,,, procedure tform1. formcreate (afsender: tobject), begynder, med notifyicondatabegynder, hicon: = ikon. klare,,, strpcopy (sztip, anvendelse. afsnit), wnd: = klare;,, ucallbackmessage: = wm_icontray;,, nævnte: = 1;,, uflags: = nif_message + nif_icon + nif_tip;,, cbsize: = 7 (tnotifyicondata);,,,,, shell_notifyicon (nim_add, @ notifyicondata);,,,,,, håndtering af ikon meddelelser, form1 vil modtage wm_icontray beskeder fra ikonen.for at registrere og behandle disse budskaber er vi nødt til at erklære en ny metode i vores form.for eksempel:,,,,,,,, tform1 = klasse (tform),,,,,,,,, private, (private erklæringer},,,,,,,,, procedure icontray (var - mng: tmessage); meddelelse wm_icontray;,, offentlige, {offentlige erklæringer},,,,,,,,,,,,,,,, i forbindelse med gennemførelsen af denne metode kan vi for eksempel viser en pop - op - menuen, når brugeren ikke klik på ikon.hvis du har skabt en pop - op - menuen, der hedder popupmenu1 følgende kode vil gøre det trick:,,, procedure tform1. icontray (var - mng: tmessage);,, var, cursorpos: tpoint;, begynder, hvis msg.lparam = wm_rbuttondown så begynde, getcursorpos (cursorpos);,, popupmenu1. pop - up - (cursorpos. x, cursorpos. y);,,,,,,,, som,,,,,,,,, der viser og gemmer sig den form, man normalt vil omfatte en menupunkt med pop - op - menuen for at vise den form, så alt du skal gøre er at skrive en begivenhed, kontakt til showet metode til form og eventuelt fjerne ikon fra systemet, tray:,,, procedure tform1. mnushowclick (afsender: tobject), begynder,,,,, //shell_notifyicon (nim_delete, @ notifyicondata),,,,,,,,,,, når brugeren lukker form, kan man f.eks. gem den i stedet for at lukke det og eventuelt vise ikon igen i systemet, tray, hvis du har fjernet det, da du fik form synlige.for eksempel:,,, procedure tform1. formclose (afsender: tobject; var aktion: tcloseaction), begynder, aktion: = canone;,, skjule; //shell_notifyicon (nim_add, @ notifyicondata);,,,,,,, at ansøgningen, kan du få en menu. punkt i pop - op - menuen - anvendelse.i dette tilfælde skal du skrive en kontaktperson for dets klik begivenhed at fjerne ikon og afslutte gennemførelsen:,,, procedure tform1. mnuexitclick (afsender: tobject), begynder, shell_notifyicon (nim_delete, @ notifyicondata), anvendelse. processmessages;,, anvendelse. afslutte,,,,,,,,,, det fulde kildekode eksempel i denne artikel kan downloades fra:,,http://www.latiumsoftware.com/download/d00035.zip,