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?