Avatar billede ossi Nybegynder
09. september 2002 - 13:18 Der 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!)
Avatar billede doc404 Novice
09. september 2002 - 14:58 #1
Du kan gøre noget i denne stil

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;
Avatar billede ossi Nybegynder
09. september 2002 - 17:12 #2
Det var jeg for hurtig..!

Hvad så når jeg er færdig med at bruge den?

Hvis jeg destroy'er Frm så Destroyer jeg jo oss hele min Form!?
Avatar billede doc404 Novice
09. september 2002 - 19:16 #3
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"
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester