Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Вниз

Как узнать высоту системного трея в пикселях?   Найти похожие ветки 

← →
Mishenka   (2007-01-15 11:31) [0]

Хочу вывести сообщение над треем ввиде формы. Как узнать высоту панели задач и системного трея в пикселях?

---

← →
Elen ©   (2007-01-15 11:59) [1]

>  Как узнать высоту панели задач

Кажись так :

var h:hwnd;rt:trect;
begin
h:=FindWindow("Shell_TrayWnd","");
GetWindowRect(h,rt);
caption:=inttostr(rt.Bottom-rt.Top);
end;

---

← →
Игорь Шевченко ©   (2007-01-15 12:09) [2]

> Как узнать высоту панели задач и системного трея в пикселях?


uses
 Shellapi;

procedure TfMain.miReportsClick(Sender: TObject);
var Appbar : TAppbarData;
begin
 Appbar.cbSize := SizeOf(AppBar);
 ShAppbarMessage(ABM_GETTASKBARPOS, AppBar);
 ShowMessageFmt("Высота таскбара = %d", [Appbar.rc.bottom - Appbar.rc.top]);
end;

Elen ©   (15.01.07 11:59) [1]

Ты опять вернулось ? А зря..

---

← →
Elen ©   (2007-01-15 12:14) [3]

> Ты опять вернулось ? А зря..

Во-первых почему вернулось?
Во-вторых - вижу соскучились :)
Ну и в-третьих - а чем [1] плохо, а?

---

← →
clickmaker ©   (2007-01-15 12:23) [4]

если уж на то пошло, то панелька эта может прилипать не только к низу и верху... поэтому, что считать высотой?
в общем случае можно проверить uEdge в Appbar

---

← →
Elen ©   (2007-01-15 12:33) [5]

> clickmaker, Игорь Шевченко

Ладно согласна. Тогда получаем область трея так:


h:=FindWindow("Shell_TrayWnd","");
h:=FindWindowEx(h,0,"TrayNotifyWnd","");
GetWindowRect(h,rt);
caption:=inttostr(rt.Bottom-rt.Top);

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.051 c