Системна област на лентата на задачите в Delphi

Здравейте, имам един въпрос: как да направя TaskBar и Tray на Delphi? Ще съм много благодарна за отговора. :)

←→K.o.Z ( 2004-07-03 14:23 ) [1]

Не разбирам. Защо трябва да рисувате TaskBar и Tray??Имате ли във вашето приложение режим за ала-прозорци?? Това не е необходимо!!Единвече е направен. ;)

> Имам този въпрос: как да направя TaskBar и > TreyHands. Между другото, тези 2 термина са едно и също нещо. Има област за уведомяване и списък със задачи.> Как да покажете иконите, които са в треяЕ, има много начини - обичате да си го рисувате сами, обичате да го правите като Microsoft от ToolBar, можете също да използвате TabControl - въпрос на вкус.> и така, че когато се натиснат бутоните на мишката, тези икони извикват съответните > менюта (POPUP).Въпросът е толкова обемист, че дори не знам от коя страна да започна да говоря, за да го направя по-кратък. Започнете тук или нещо подобно: http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/treasury/systray.htm

> Настроили ли сте приложението си да работи като Windows??Още като Explorer

Не питах какви компоненти да рисувам!!Попитах как да издърпам икони на работещи програми!Сигурно през дръжки,но как да ги намеря. Какво през FindWindow? :(

←→Sur ( 2004-07-04 12:29 ) [4]

var NID: TNotifyIconData;

procedure TForm1.bAddClick(Sender: TObject); begin WITH NID DO BEGIN uFlags := NIF_ICON OR NIF_TIP OR NIF_MESSAGE; cbSize := SizeOf(NID); u >Wnd := Handle; szTip := "Hint Example"+ # 0; hИкона :=Application.Icon.Handle; uCallBackMessage := WM_USER+10; END; IF Shell_NotifyIcon(NIM_ADD,@NID) THEN MessageBeep(0); end;

procedure TForm1.bModifyClick(Sender: TObject); begin WITH NID DO BEGIN szTip := "Hint example 1"+#0; hIcon := LoadIcon(0,IDI_ASTERISK); END; IF Shell_NotifyIcon(NIM_MODIFY,@NID) THEN Съобщение Звуков сигнал (0); край;

procedure TForm1.bDeleteClick(Sender: TObject); begin IF Shell_NotifyIcon(NIM_DELETE,@NID) THEN MessageBeep(0); end;

Изтрито от модераторЗабележка:Задайте въпроса си в отделна тема

--- . Смъртта е само началото.

---