Ĺadny brzuch
Do swojej aplikacji potrzebuje rozpoznać jaką wysokość ma pasek START. Ja mam podniesiony o dwie pozycje, ale inni mają przeważnie na pierwszej. Chcę w ten sposób dostosować program, aby się rozciągnął na całą wysokość Screena, a nie ekranu :)
Przeciez Maximized dostosowuje sie do wysokosci paska
procedure TForm1.Button1Click(Sender: TObject); var r:trect; wysokosc:integer; begin GetWindowRect(FindWindow('Shell_TrayWnd',nil),r); wysokosc:=r.Bottom-r.Top; end;
Użytkownik Cyrkiel edytował ten post 22 czerwiec 2005, 15:22
Ale forma ma nie zajmować całej szerokości DeskTop'a tylko jej część. A jak dam Maximized to wajcha. Jak dam Align na Right to nie będzie możliwości przeciągania okna :(
Prubowałem nawet Align na Right i po tym odrazu na None i też nie roźciąga :(
Cyrkiel - zaraz sprubuje, ale chciałbym to zrozumieć ;)
Użytkownik mariuszlorenc edytował ten post 22 czerwiec 2005, 15:24
O takie coś w całości Ci chodzi?procedure TForm1.FormCreate(Sender: TObject); var r:trect; begin GetWindowRect(FindWindow('Shell_TrayWnd',nil),r); Left:=0; Top:=0; Width:=Screen.Width; Height:=r.Top; end;
Nom - troche to przerobie, ale OK. Napisz jak to działa ;)
Nom - troche to przerobie, ale OK. Napisz jak to działa ;)
W skrócie:
FindWindow - szukanie okna
GetWindowRect - pobieranie danych o części ekranu, jaką zajmuje okno
http://img289.echo.c...128/addd9zt.jpg ;)
Użytkownik Cyrkiel edytował ten post 22 czerwiec 2005, 15:37
GetWindowRect(FindWindow('Shell_TrayWnd',nil),r);
Jakk tą instrukcję wykonać w c++ Builder?
Użytkownik Konrad_st edytował ten post 12 lipiec 2005, 22:43
A jakoś tak:RECT r; GetWindowRect(FindWindow("Shell_TrayWnd",NULL),&r);
Użytkownik Cyrkiel edytował ten post 12 lipiec 2005, 23:04
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Przeciez Maximized dostosowuje sie do wysokosci paska
procedure TForm1.Button1Click(Sender: TObject); var r:trect; wysokosc:integer; begin GetWindowRect(FindWindow('Shell_TrayWnd',nil),r); wysokosc:=r.Bottom-r.Top; end;
Użytkownik Cyrkiel edytował ten post 22 czerwiec 2005, 15:22
Ale forma ma nie zajmować całej szerokości DeskTop'a tylko jej część. A jak dam Maximized to wajcha. Jak dam Align na Right to nie będzie możliwości przeciągania okna :(
Prubowałem nawet Align na Right i po tym odrazu na None i też nie roźciąga :(
Cyrkiel - zaraz sprubuje, ale chciałbym to zrozumieć ;)
Użytkownik mariuszlorenc edytował ten post 22 czerwiec 2005, 15:24
O takie coś w całości Ci chodzi?procedure TForm1.FormCreate(Sender: TObject); var r:trect; begin GetWindowRect(FindWindow('Shell_TrayWnd',nil),r); Left:=0; Top:=0; Width:=Screen.Width; Height:=r.Top; end;
Nom - troche to przerobie, ale OK. Napisz jak to działa ;)
Nom - troche to przerobie, ale OK. Napisz jak to działa ;)

W skrócie:
FindWindow - szukanie okna
GetWindowRect - pobieranie danych o części ekranu, jaką zajmuje okno
http://img289.echo.c...128/addd9zt.jpg ;)
Użytkownik Cyrkiel edytował ten post 22 czerwiec 2005, 15:37
GetWindowRect(FindWindow('Shell_TrayWnd',nil),r);
Jakk tą instrukcję wykonać w c++ Builder?
Użytkownik Konrad_st edytował ten post 12 lipiec 2005, 22:43
A jakoś tak:RECT r; GetWindowRect(FindWindow("Shell_TrayWnd",NULL),&r);
Użytkownik Cyrkiel edytował ten post 12 lipiec 2005, 23:04