Главная страница
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.024 c
1-1125577892
CatiL
2005-09-01 16:31
2005.09.25
Как сделать один из ItemIndex ComboBoха неактивным


3-1123398152
Киря
2005-08-07 11:02
2005.09.25
DBLookUpComboboxEh с двумя ключевыми полями


9-1116830673
Slavikk
2005-05-23 10:44
2005.09.25
GLScene - стрельба


4-1122916656
wqer
2005-08-01 21:17
2005.09.25
Local disks


14-1125097212
Fin
2005-08-27 03:00
2005.09.25
Miranda отваливается постоянно.