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!)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.