ajout d'un composant

Question

salut
voila un code qui fait l'ajout d'un composant
var
  NewLabel: TLabel;
begin
    NewLabel := TLabel.Create(self);
    NewLabel.Parent := self;
    NewLabel.Top := 20;  /
    NewLabel.Left :=20 * 20;
    NewLabel.Caption := &#1578;&#1582;&#1578;&#1575;&#1585; &#1575;&#1587;&#1605; &#1575;&#1604;Caption
  end;

end;  
mais si je ferme l'execution et je le lance une autre fois je ne trouve pas ce composant.
merci d'avant.























 tv shows

hammadiest · Answer

comment faire enregistrer se composant























 Ð¿Ñ&#65533;ÐŸÐŽÐ²ÐžÐ¶ÐµÐœÐžÐµ Ñ&#65533;Ð°Ð¹Ñ&#65533;Ð° Ñ&#65533;ÐµÐœÐ°

cleecky · Answer

bonjour !
Je n'en sait absolument rien mais a tout hasard...
http://fdeport.free.fr/creationcomposant.htm
http://www.jcolibri.com/articles/prog_objet_composants/ecriture_de_composant/ecriture_de_composant.html#creation_de_composant

Si t'as pas déjà fait un tour sur ceux là....


i'm a newbieeees

hammadiest · Answer

salut 
j'ai trouver ces deux procedure mais le procedure load ne fonctionne pas sil vous plait expliquer mois comment fonctionne se deux procedure
procedure SaveLabel(Res: TLabel; aName: String);
Begin

  Try
    WriteComponentResFile(ExtractFilePath(ParamStr(0))+aName, Res);
  Except
    MessageBox(Application.Handle, 'Cannot saving the component !', 'Error', $10);
  end;
end;

Procedure LoadLabel(var aLabel: TLabel; aName: String);
var
  Str: String;
Begin
  Try
    Str := ExtractFilePath(ParamStr(0))+aName;
    aLabel := ReadComponentResFile(Str, aLabel) as TLabel;
  Except
    MessageBox(Application.Handle, 'Cannot loading the component !', 'Error', $10);
  end;
end;

pour l'enregistrement
SaveLabel(Label1, 'Label.dat');

pour l'appel
LoadLabel(Label1, 'Label.dat');

il faut indiquer que label1 est cree et enregistrer dans le fichier label.dat

et merci d'avance

Ajout d'un composant

3 réponses

Votre réponse

Discussions similaires