Ĺadny brzuch
Czy jest możliwość form2 umieścić w GroupBox1 jeśli tak to jak, dokładnie chodzi mi że jak kliknę w buttona to żeby mi otworzyło formę2 w GroupBox1 , przypominam że form2 mam utworzoną
Asdef www.kanalia.toya.net.pl
procedure TForm1.Button1Click(Sender: TObject); begin Form2.ParentWindow := Form1.GroupBox1.Handle; Form2.Left := 0; Form2.Top := 0; Form2.Show; end;
pozdrawiam
pepsi^no1
cytat:pepsi napisał:
[...]
pepsi prawi o to mi chodziło tylko jest jeden mankament faktycznie umieszcza w GroupBox ale forma2 ma komponent mainmenu tylko że go nie widać, jest tylko top oraz zawartość niestety menu nie ma,
pytanko: jak wykrzesać to menu które znikło:(
Asdef www.kanalia.toya.net.pl
wydaje mi sie ze tego sie nie da obejsc :( mainmenu moze istniec tylko w oknie, ktore nie posiada zadnego rodzica...
pozdrawiam
pepsi^no1
to du... blada pomysł wyparował? może ktoś wie jak na to poradzić:shock:
Asdef www.kanalia.toya.net.pl
cytat:Asdef napisał:
to du... blada pomysł wyparował? może ktoś wie jak na to poradzić:shock:
Tego MainMenu też narazie nie udało mi się odpalić w tym oknie.
A musisz je tam mieć ? :)
Jeśli tak (i nikt nic innego nie wymyśli) to możesz samemu je zrobić ;)
Np. tak:
Wrzucasz na tą drugą formę panel - wyrównuesz do góry formy i zmniejszasz wysokość na wysokość taką jak ma MainMenu. Potem ładujesz tam np. Labele - tyle ile pozycji w głównym menu i odpowiednio ustawiasz im OnLeave i onmove, dzięki temu będą się podświetlać przy najeżdżaniu na nie myszką.
Do tego możesz do każdego z nich podpiąć PopupMenu do zdarzenia onclick i ustawić, żeby pojawiały się pod odpowiednimi labelami.
Niezbyt jest to eleganckie - ale jeśli koniecznie musisz mieć tam Menu a inaczej się nie da to możesz się tak pobawić :)
ICQ : 245-363-570
cytat:Oxi napisał:
[...]
tzn... chciałem to zrobić raczej w celach wizualnych do pracy dyplomowej? (tak wiesz żeby odwrócić uwagę od nie dopracowanego działania programu :P :lol: ) ale jak mówisz że się nie da zrobić pro?ciej to chyba sobie odpuszczę
jeszcze raz dzięki wszystkim za pomoc;)
Asdef www.kanalia.toya.net.pl
Tu masz źródła sposobu podobnego do opisanego przez Oxiego: http://www.cyrkiel.friko.pl/form.zip
------------------------
Pzdr, Cyrkiel
cytat:Cyrkiel napisał:
Tu masz źródła sposobu podobnego do opisanego przez Oxiego: http://www.cyrkiel.friko.pl/form.zipzle wyliczasz pozycje popupmenu, jak sie przesunie okienko w groupboxie to menu wyswietla sie w zlym miejscu... lepiej zrobic tak: with ClientToScreen( Point(SpeedButton1.Left,SpeedButton1.Top+SpeedButton1.Height)) do PopupMenu1.Popup(X, Y);
pozdrawiam
pepsi^no1
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Asdef www.kanalia.toya.net.pl
procedure TForm1.Button1Click(Sender: TObject); begin Form2.ParentWindow := Form1.GroupBox1.Handle; Form2.Left := 0; Form2.Top := 0; Form2.Show; end;
pozdrawiam
pepsi^no1
cytat:pepsi napisał:
[...]
pepsi prawi o to mi chodziło tylko jest jeden mankament faktycznie umieszcza w GroupBox ale forma2 ma komponent mainmenu tylko że go nie widać, jest tylko top oraz zawartość niestety menu nie ma,
pytanko: jak wykrzesać to menu które znikło:(
Asdef www.kanalia.toya.net.pl
wydaje mi sie ze tego sie nie da obejsc :( mainmenu moze istniec tylko w oknie, ktore nie posiada zadnego rodzica...
pozdrawiam
pepsi^no1
to du... blada pomysł wyparował? może ktoś wie jak na to poradzić:shock:
Asdef www.kanalia.toya.net.pl
cytat:Asdef napisał:
to du... blada pomysł wyparował? może ktoś wie jak na to poradzić:shock:
Tego MainMenu też narazie nie udało mi się odpalić w tym oknie.
A musisz je tam mieć ? :)
Jeśli tak (i nikt nic innego nie wymyśli) to możesz samemu je zrobić ;)
Np. tak:
Wrzucasz na tą drugą formę panel - wyrównuesz do góry formy i zmniejszasz wysokość na wysokość taką jak ma MainMenu. Potem ładujesz tam np. Labele - tyle ile pozycji w głównym menu i odpowiednio ustawiasz im OnLeave i onmove, dzięki temu będą się podświetlać przy najeżdżaniu na nie myszką.
Do tego możesz do każdego z nich podpiąć PopupMenu do zdarzenia onclick i ustawić, żeby pojawiały się pod odpowiednimi labelami.
Niezbyt jest to eleganckie - ale jeśli koniecznie musisz mieć tam Menu a inaczej się nie da to możesz się tak pobawić :)
ICQ : 245-363-570
cytat:Oxi napisał:
[...]
tzn... chciałem to zrobić raczej w celach wizualnych do pracy dyplomowej? (tak wiesz żeby odwrócić uwagę od nie dopracowanego działania programu :P :lol: ) ale jak mówisz że się nie da zrobić pro?ciej to chyba sobie odpuszczę
jeszcze raz dzięki wszystkim za pomoc;)
Asdef www.kanalia.toya.net.pl
Tu masz źródła sposobu podobnego do opisanego przez Oxiego: http://www.cyrkiel.friko.pl/form.zip
------------------------
Pzdr, Cyrkiel
cytat:Cyrkiel napisał:
Tu masz źródła sposobu podobnego do opisanego przez Oxiego: http://www.cyrkiel.friko.pl/form.zipzle wyliczasz pozycje popupmenu, jak sie przesunie okienko w groupboxie to menu wyswietla sie w zlym miejscu... lepiej zrobic tak: with ClientToScreen( Point(SpeedButton1.Left,SpeedButton1.Top+SpeedButton1.Height)) do PopupMenu1.Popup(X, Y);
pozdrawiam
pepsi^no1