Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Feststellen, ob ein bestimmtes MDI-Child geöffnet ist. (https://www.delphipraxis.net/48641-feststellen-ob-ein-bestimmtes-mdi-child-geoeffnet-ist.html)

AndreT 28. Jun 2005 13:42


Feststellen, ob ein bestimmtes MDI-Child geöffnet ist.
 
Hi zusammen,

wie kann man feststellen, ob ein bestimmtes MDI Child geöffnet ist?

ich möchte zB so was wie

if (mdiform_otto = vorhanden) then begin .....

machen

Gruss Andre

bigg 28. Jun 2005 14:09

Re: Feststellen, ob ein bestimmtes MDI-Child geöffnet ist.
 
Liste der Anhänge anzeigen (Anzahl: 1)
Im Hauptformular!, könnte es so gehen:
Hierbei wird das aktive Fenster (hat immer den Index 0) auf seine Klassenbezeichnung geprüft.

Delphi-Quellcode:
var i: Integer;
begin if Self.MDIChildCount > 0 then
begin

if Self.MDIChildren[0] is TChild then
ShowMessage('TChild');

if Self.MDIChildren[0] is TMemoChild then
ShowMessage('TMemoChild');

end;
Demo liegt bei ;-)

AndreT 28. Jun 2005 14:11

Re: Feststellen, ob ein bestimmtes MDI-Child geöffnet ist.
 
Danke schon mal, aber

das "bestimmte" Child ist nicht unbedingt das einzige Child was geöffnet ist.
Hab ich nicht direkt die Möglichkeit anhand des Form-Names zu erfragen, ob es geöffnet ist?

Gruss

Flocke 28. Jun 2005 14:13

Re: Feststellen, ob ein bestimmtes MDI-Child geöffnet ist.
 
Delphi-Quellcode:
for k := MainForm.MDIChildCount - 1 downto 0 do
  if MainForm.MDIChildren[k] is Tmdiform_otto then
  begin
    // ...
  end;
Das aktive MDI-Kind bekommst du mit der Eigenschaft ActiveMDIChild.

[Nachtrag]

Achso, nach dem Namen:

Delphi-Quellcode:
for k := MainForm.MDIChildCount - 1 downto 0 do
  if MainForm.MDIChildren[k].Name = 'mdiform_otto' then
  begin
    // ...
  end;

AndreT 28. Jun 2005 14:22

Re: Feststellen, ob ein bestimmtes MDI-Child geöffnet ist.
 
Danke Flocke

dein letztes Beispiel brachte den Erfolg

:hello:


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz