Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hincapie,
6. Mär 2006
Hallo flocke:
meinst Du etwa so: :wink:
for c := 0 to MDIChildCount - 1 do
if TMDIChildTabSheet(PageControl1.Pages).MDIChild = ActiveMDIChild then
PageControl1.ActivePageIndex := c;
Im OnActivate des ChildFensters eingebunden funzt es!! :thumb: :thumb:
Vielen Dank nochmal!! :wink:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hincapie,
6. Mär 2006
@ flocke: Super, funktioniert soweit ganz klasse, danke!! :thumb:
Jetzt habe ich aber noch ein Problem:
Wenn ich nun mit einem Mausklick ein Childfenster aktiviere, sollte auch der entsprechende TabSheet markiert werden.
D.h. irgendwas in der Richtung:
PageControl1.ActivePage := ActiveMDIChild.Caption;
Funktioniert so natürlich nicht, aber so ähnlich müßte es doch sein, oder?
Und...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hincapie,
3. Mär 2006
Ja, aber wie komme ich an den Namen, wenn ich die TabSheets doch erst zur Laufzeit erstellen lasse und daher den Namen vorher gar nicht kenne? :gruebel:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hincapie,
3. Mär 2006
So, gleicher Kontext, neues Problem:
Ich möchte nun mit einem Klick auf das TabSheet das dazugehörige Child-Fenster in den Vordergrund bringen.
Diese Anweisung funktioniert nur bedingt:
procedure TFrameForm.PageControl1Change(Sender: TObject);
begin
MdiChildren.BringToFront;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hincapie,
2. Mär 2006
Hab noch nicht viel mit Pointern zu tun gehabt. :oops:
Wie sollte das denn Deiner Meinung nach aussehen? :?:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hincapie,
2. Mär 2006
@ uwewo:
Es scheint wohl so, habe den Code umgestellt auf:
for i := PageControl1.PageCount -1 downto 0 do
PageControl1.Pages.Free;
Jetzt funktioniert es richtig! Danke für den Tipp!!
Hhm, nun brauche ich nur noch ne vernünftige Lösung für das Schliessen der Childs.