Главная страница
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
14-1125641670
Juice
2005-09-02 10:14
2005.09.25
Быть ли ХП на моем компе ?


14-1125432179
Nous Mellon_
2005-08-31 00:02
2005.09.25
Форматирование HTML-кода


8-1115883781
Fl@sh
2005-05-12 11:43
2005.09.25
TBitMap


14-1125915430
Signate
2005-09-05 14:17
2005.09.25
Opera


3-1123057899
surkis
2005-08-03 12:31
2005.09.25
Поскажите компоненты и репорты