Avatar billede morten_s Nybegynder
15. august 2003 - 10:06 Der er 16 kommentarer og
1 løsning

MDIChild på en TabSheet side

Jeg har en pagecontrol med flere sider (TabSheet's), til hver af disse sider skal brugeren have mulighed for at oprette en række MDIChild's med forskellige funktioner, ved at skifte fra TabSheet til TabSheet skal brugeren så hurtigt kunne springe fra det ene sæt "Child's" til det andet.

Problemet er at jeg kun kan få "childsne" vist hvis de ligger direkte på en form af typen fsMDIForm. eller med andre ord: Hvis jeg placere en PageControl på en Form af typen fsMDIForm og alligner pageControllen til alClient bliver MDIChildsne vist bag ved PageControllen.

Hvem kan løse dette?

NB kun point til en rigtig løsning
Avatar billede borrisholt Novice
15. august 2003 - 10:28 #1
Ja det kan det godt .. Du skal bare selv styre din docking. Du kan ikke bruge fsMDIChild.

Jens B
Avatar billede morten_s Nybegynder
15. august 2003 - 10:31 #2
Hej Jens

Kan du ikke forklare lidt mere om hvordan jeg styre docking haløjet?

mvh
/MNorten
Avatar billede hoejrup Nybegynder
15. august 2003 - 10:35 #3
Avatar billede borrisholt Novice
15. august 2003 - 10:47 #4
Jo det jeg siger er at du selv skal styre det som du ellers får foræret når du laver et MDI program. Kortsagt.

Nå du Maximerer, Minimerer etc.
Avatar billede stoney Nybegynder
15. august 2003 - 13:20 #5
kan du ikke bare snyde lidt ?

procedure TForm1.Button1Click(Sender: TObject);
var
myform,myform1 : tform;
begin
  myform := tform.Create(tabsheet1);
    myform.Parent := TabSheet1;
    myform.Height := (pagecontrol1.Height - 50);
    myform.Caption := 'test1';

  myform.Visible := true;



  myform1 := tform.Create(tabsheet1);
    myform1.Parent := tabsheet1;
    myform1.Height := (pagecontrol1.Height - 50);
    myform1.Caption := 'test2';

  myform1.Visible := true;

end;

Husk at free dem

Stoney
Avatar billede morten_s Nybegynder
15. august 2003 - 13:23 #6
Stoney> Jo sagtens, men jeg mangler jo hele dockingfaciliteten som er det smarte ;-((, den må jeg jo så kode selv
Avatar billede stoney Nybegynder
15. august 2003 - 13:48 #7
Prøv at lave den første form som dn mdi-form og de
efterfølgende som en alm. form.
Bemærk parent på "form2"

procedure TForm1.Button1Click(Sender: TObject);
var
myform,myform1 : tform;
begin

  myform := tform.Create(tabsheet1);
    myform.Parent := TabSheet1;
    myform.FormStyle := fsmdiform;
    myform.Align := alclient;

    myform.Caption := 'test1';


  myform.Visible := true;




  myform1 := tform.Create(tabsheet1);
  myform1.Parent := myform;



    myform1.Height := (pagecontrol1.Height - 55);
    myform1.Caption := 'test2';

  myform1.Visible := true;

end;

Stoney
Avatar billede stoney Nybegynder
15. august 2003 - 13:49 #8
form2 = myform1

Stoney
Avatar billede morten_s Nybegynder
15. august 2003 - 14:12 #9
Se nu begynder det jo at ligne noget.... kigger lidt mere på det i aften ;-))
Avatar billede morten_s Nybegynder
15. august 2003 - 22:16 #10
Virker perfekt, der er kun en lille ting som driller, det child som har focus har ikke en blå top ramme, men en grå som om den ikke er valgt ind...?
Avatar billede morten_s Nybegynder
18. august 2003 - 11:40 #11
Stoney, Jens> Stadig det lille problem med at den som er i focus ikke har blå ramme foroven, i har ikke en ide til hvordan det klares?
Avatar billede morten_s Nybegynder
20. august 2003 - 12:33 #12
Stoney> Du har ikke lyst til at se på problemet med at rammen ikke bliver blå foroven.

Point er dine hvis du kan løse det
Avatar billede stoney Nybegynder
20. august 2003 - 18:31 #13
Hej Morten
Jeg har ikke lige tid i aften.
Jeg har prøvet at ligge en memo på en child.
Problemet er den ikke får focus, hverken memo eller childformen.
Derfor bliver formens caption linie heller ikke blå.
Jeg vil prøve at kigge på det yderligere i morgen.

Stoney
Avatar billede morten_s Nybegynder
20. august 2003 - 18:32 #14
Tak skal du ha' ;-)
Avatar billede stoney Nybegynder
22. august 2003 - 10:53 #15
Hej Morten
Det er vist et grimt spørgsmål du har stillet.
Jeg har ladet mig fortælle at forms' kun kan have form's
som parent. Om det er det der er problemet ved jeg ikke.
Jeg har spurgt mig lidt omkring.
Dette er vist det bedste bud indtil videre.
http://www.delphipages.com/threads/thread.cfm?ID=97630&G=97630

Jeg vender tilbage når jeg har fundet ud af noget mere.

Stoney
Avatar billede morten_s Nybegynder
09. september 2003 - 20:06 #16
hej Stoney.... noget nyt eller skal vi glemme det...;-))
Avatar billede morten_s Nybegynder
06. marts 2004 - 14:32 #17
a
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Capgemini Danmark A/S

AI/Data Engineer

Digitaliseringsstyrelsen

IT-arkitekt hos Digitaliseringsstyrelsen

Politiets Efterretningstjeneste

Fullstack softwareudvikler i PET

Riskpoint A/S (Riskpoint Solutions Limited)

Senior Developer