Определить позицию панели задачDelphi , Рабочий стол , TaskBarОпределить позицию панели задач
Оформил: DeeCo {With SHAppBarMessage } uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); var tabd: TAppBarData; PosString: string; begin FillChar(tabd, SizeOf(TAppBarData), 0); tabd.cbSize := SizeOf(TAppBarData); if SHAppBarMessage(ABM_GETTASKBARPOS, Tabd) = 0 then Exit; with Tabd.rc do PosString := Format(' (%d, %d);(%d, %d) ', [Left, Top, Right, Bottom]); case tabd.uEdge of ABE_LEFT: ShowMessage('Left Position' + PosString); ABE_TOP: ShowMessage('Top Position' + PosString); ABE_RIGHT: ShowMessage('Right Position' + PosString); ABE_BOTTOM: ShowMessage('Bottom Position' + PosString); end; end; Статья Определить позицию панели задач раздела Рабочий стол TaskBar может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |