09. september 2002 - 13:18Der er
2 kommentarer og 1 løsning
Fra String til TForm..
Jeg har brug for at finde navnet på alle åbne forme i mit program.
Dette gør jeg ved en for-løkke og på den måde får jeg formenes navn som String form.
Men jeg skal bruge det i TForm typen (faktisk begge dele..).. Det er til en funktion jeg har lavet som skal skifte sprog i programmet (og den skal jo skifte sproget på alle åbne forme.. Derfor!)
procedure TForm1.Button1Click(Sender: TObject); var frm : TForm; i : integer; begin for i := 0 to Application.ComponentCount - 1 do if Application.Components[i] is TForm then begin frm := Application.Components[i] as TForm; if frm.Visible then ShowMessage(frm.Caption); end end;
Jamen, du behøver ikke at destroy frm. Den "peger" blot på dit form object. Det først, når du ikke mere skal bruge et objekt at det skal "destroyes"
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.