Текущий архив: 2007.04.22;
Скачать: CL | DM;
Вниз
Панелька Найти похожие ветки
← →
Steep © (2007-04-03 12:51) [0]Хочу сделать панельку скраю экрана
Всязи с этим возник вопрос - какими средствами можно быстро и просто создать менюшку - такую же как стандартнуй толкь не по горизонтали, а по вертикали?
← →
clickmaker © (2007-04-03 12:53) [1]SHAppBarMessage()
← →
Steep © (2007-04-03 13:23) [2]это типа того... ?
var
ObenBar : TAppBarData;
ObenBarCreate : Integer;
.................
ObenBar.cbSize := SizeOf(TAppBarData);
ObenBar.hWnd := fMain.Handle;
ObenBar.uEdge := ABE_TOP;
ObenBar.rc.Left := 0;
ObenBar.rc.Top := 0;
ObenBar.rc.Right := 0;
ObenBar.rc.Bottom := fMain.Height;
ObenBarCreate := SHAppBarMessage(ABM_NEW, ObenBar);
if ObenBarCreate <> 0 then begin
SHAppBarMessage(ABM_QUERYPOS, ObenBar);
SHAppBarMessage(ABM_SETPOS, ObenBar);
Application.ProcessMessages;
MoveWindow(ObenBar.hWnd, ObenBar.rc.Left, ObenBar.rc.Top, GetSystemMetrics(SM_CXSCREEN), ObenBar.rc.Bottom, True);
end;
Страницы: 1 вся ветка
Текущий архив: 2007.04.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.047 c
