Einzelnen Beitrag anzeigen

gekmihesg
(Gast)

n/a Beiträge
 
#1

prüfen ob fenster existiert

  Alt 25. Feb 2004, 14:28
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?
  Mit Zitat antworten Zitat