Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi prüfen ob fenster existiert (https://www.delphipraxis.net/16908-pruefen-ob-fenster-existiert.html)

gekmihesg 25. Feb 2004 14:28


prüfen ob fenster existiert
 
hi
ich erstelle beim doppelclick auf einen TListView ein fenster.
ich will aber erst überprüfen ob das zugehörige fenster zu dem item schon existiert und wenn ja soll es in den fordergrund gebracht werden.

ich hab das ganze momentan so gelöst:

Delphi-Quellcode:
procedure TForm1.ListView1DblClick(Sender: TObject);
var msgform: Tform2;
begin
if listview1.SelCount = 1 then
  begin
    try
      setforegroundwindow((findcomponent(listview1.Selected.Caption) as Tform2).Handle);
    except
      msgform:=TForm2.Create(form1);
      with msgform do
        begin
          caption:=listview1.Selected.Caption;
          name:=listview1.Selected.Caption;
          show;
        end;
    end;
  end;
end;
funktioniert im prinzip aber beim debuggen tritt immer eine exception auf.
gibts da ne bessere lösung?


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:20 Uhr.

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