child form

Tags:    delphi

User
Bruger #314 @ 28.08.01 11:49
Hej

har lige læst artiklen om at åbne en form inde for en anden

med dette

procedure TForm1.CreateMDIChild(const Name: string);
var
Child: TMDI;
begin
Child := TMDI.Create(Application);
Child.Caption := Name;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
CreateMDIChild('Ikke navngivet');
end;


Men er det mugligt at f.eks få den til at åbne sig oven på et panel
så man kam plasere den der hvor man vil have den

MvH
Kristoffer Stormark



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato
User
Bruger #58 @ 28.08.01 23:11
<quote>procedure TForm1.CreateMDIChild(const Name: string);
var
Child: TMDI;
begin
Child := TMDI.Create(Application);
Child.Caption := Name;
end;

Men er det mugligt at f.eks få den til at åbne sig oven på et panel
så man kam plasere den der hvor man vil have den </quote>

Kan du ikke også lave noget kode der sætter Left, Top, Width og Height for din nye Child form? Måske noget lignende:

procedure TForm1.CreateMDIChild(const Name: string; const Left, Top, Width, Height: Integer);
var
Child: TMDI;
begin
Child := TMDI.Create(Application);
Child.Caption := Name;
Child.Left := Left;
Child.Ttop := Top;
Child.Width := Width;
Child.Height := Height;
end;

Niels
http://www.niller.f2s.com/ - always there...
http://g4s.dnsq.org/ - when I'm online!



t