Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

Размер SysTray-a   Найти похожие ветки 

 
Adil   (2005-08-01 20:53) [0]

Как можно узнат размер(Width) Systray-e???
Спасибо


 
Ученик   (2005-08-01 22:56) [1]


procedure TForm1.Button2Click(Sender: TObject);
var
 WindowRect: TRect;
begin
 if GetWindowRect(FindWindow("Shell_TrayWnd", ""), WindowRect) then
   with WindowRect do
     ShowMessage(Format("%d-%d-%d-%d", [Left, Top, Right, Bottom]))
end;


 
Adil   (2005-08-02 09:19) [2]

Спасибо за помощь.
Мне нужно было другое, но принцип тоже самое.

Исправил:

procedure TForm1.Button1Click(Sender: TObject);
var
WindowRect: TRect;
  TrayWnd, SysTrayWnd: HWND;
begin
 TrayWnd  := FindWindow("Shell_TrayWnd", nil);
 SysTrayWnd := FindWindowEx(TrayWnd, 0, "TrayNotifyWnd", nil);

if GetWindowRect(SysTrayWnd, WindowRect) then
  with WindowRect do
   showmessage(format("Width: %d , Height: %d",[right-left,bottom-top]));
  //     ShowMessage(Format("%d-%d-%d-%d", [Left, Top, Right, Bottom]))

end;



 
DVM ©   (2005-08-02 10:31) [3]


> Мне нужно было другое, но принцип тоже самое.

SysTray - это как раз панель задач. Если другое нужно было - так другое бы и писал.



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

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
14-1125776112
xivs
2005-09-03 23:35
2005.09.25
Недостаточно места на диске....


8-1115913955
ArtKil
2005-05-12 20:05
2005.09.25
Как сделать эквалайзер?


14-1125945109
Imbalancer
2005-09-05 22:31
2005.09.25
Need help VBA


1-1125632650
leonidus
2005-09-02 07:44
2005.09.25
Расположении формы на экране при двух мониторах


3-1123604223
Punch
2005-08-09 20:17
2005.09.25
Как убрать ненужный "Locate"?