Главная страница
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.03 c
1-1123872497
ArtemESC
2005-08-12 22:48
2005.09.25
Abbrevia Zipper


3-1123582327
Николай2005
2005-08-09 14:12
2005.09.25
Удобная установка BDE


9-1117053822
XCoder
2005-05-26 00:43
2005.09.25
GL_MODELVIEW


1-1125577892
CatiL
2005-09-01 16:31
2005.09.25
Как сделать один из ItemIndex ComboBoха неактивным


5-1100372543
TSoftman
2004-11-13 22:02
2005.09.25
Как объявлять Item-свойства ....