Convertir variable string en TForm ?

Question

Bonjour,

J'aimerais convertir une variable de type string en TForm ou tout autre composants existant. Quelqu'un a t-il une idée ?

Merci
Orélien.

TheShAmAn · Answer

bah fait unje procedure ki creer un TForm... et tu le nome avec ta variable de type string ;) 

sinon , je voi spo  :shy)

cs_orelien · Answer

Ok, mais en fait je doit lire dans un fichier texte des noms de fiches qu'il me faut manipuler par la suite.

J'ai essayé ceci :
var
Maform : Tform

begin
Maform := TForm(form1);
Maform.caption := 'nouveau nom';
end;

Mais cela ne fonctionne pas si je remplace "form1" par une variable string.

Orélien.

TheShAmAn · Answer

heu.. bah pr commencer, tu n'a pa de .create  :dissapprove) 
Dc ca va etre dur...
et pr renommer, essaie :
Maform.Name := tavar; <=de type string  :) 

car le .caption, c pr le titre  ;) 

Voila, voilou  :big)

Loulibier · Answer

Salut,

  La seule méthode que je vois pour résoudre ton problème est de lister tous tes composants TForm et de comparer leur nom à celui que tu recherche...

comme le code suivant :


procedure TWndMain.Button1Click(Sender: TObject);
var
  iNoComponent : integer;
  sNameForm    : string;
begin
  sNameForm := 'WndMain';

  for iNoComponent := 0 to Application.ComponentCount - 1 do
  begin
    if Application.Components[iNoComponent] is TForm then
    begin
      if (Application.Components[iNoComponent] as TForm).Name = sNameForm then
        ShowMessage((Application.Components[iNoComponent] as TForm).Name);
    end;
  end;
end;


Bonne prog,

loulibier.

Convertir variable string en TForm ?

4 réponses

Votre réponse

Discussions similaires