mam takiem pytanie jak zorbić aplikacje ktura by zajmowała cały ekram ale!...jezeli ustawiny w instepkorze obiektów właściwości formatki BorderStyle na bsNone, a WindowState na wsMaximized to plikacja siem uruchomi na full ekranie ale nie widać paska Startu :( ... jak zorbic zeby było go widać [???] [???] [???]
To daj taki kod:
Form1.Height:=Form1.Height-27;
Ale w OnCreate nie skutkuje!!! :-/
a da siem inaczej [???] :-/
było już na forum!
w ObjectInspektorze formy
BorderStyle : bsNone
WindowState : wsMaximized
.
a przeczytaleś moje pytanie? własnie w tym jest problem! wtedy siem włancza na full ekran i nie widać paska Startu :( hodzi oto zeby bylo go widać!
a da siem inaczej [???] :-/
To o co Ci chodzi?? Mi siem to podoba :
Może w OnCreate Application.Maximize zamiast ustawiana własności formy
zart przesuń forme o tą wysokość menustart moze cos pomoze
zart przesuń forme o tą wysokość menustart moze cos pomoze
- Kolego, mogles to dopisac do poprzedniego posta!! (ikonka z olowkiem po prawej stronie).
- Zanim cos napiszesz to pierw pomysl(czyt. pierw sprawdz w Delphi, czy dziala; przy zalozeniu, ze masz Delphi)[krzyk]
- Skoncz juz z tym nabijaniem postow.
- Odpowiedz na pyt. AMS:
Odpowiedzi tez sam szukalem 2 tyg. temu i jakos znlazlem w Wyszukiwarce , bylo to na forum nieraz :-[ - Odpowiedz:
w OnCreate formy walnij takie cos:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Constraints.MinHeight := Screen.Height;
Form1.Constraints.MinWidth := Screen.Width;
ShowWindow( FindWindow( 'Shell_TrayWnd',nil), SW_HIDE);
end;
dla OnClose formy pacnij koniecznie takie cos:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow( FindWindow( 'Shell_TrayWnd',nil), SW_SHOW);
end;
-
- Przykazanie Ktosia:
Zanim zdecydyjesz się na napisanie postu zobacz, czy ktoś nie miał już takiego problemu lub nie można go łatwo rozwiązać - popatrz w artykułach, w FAQ, w Gotowcach i korzystaj z wyszukiwarki na forum.
Warto zajrzeć też do Encyklopedii VCL i używać magicznego klawisza F1 w Delphi.
- Lektura uzupelniajaca: