bouton dynamiqueRésolu

Question

bonjour.

j ai cr&#233;&#233; des pages control et des tabsheet dynamiquement, et sur
chaque je cr&#233;&#233; aussi un bouton, un edit, une colorbox (tout ca
dynamiquement).

le edit me sert a rentrer le nom du caption de la tabsheet activ&#233; et
lorsque j appuye sur le bouton, le caption de la fiche doit etre
remplac&#233;e par le nom.

Or lorsque j appuye sur le bouton d une fiche qui vient de se creer le caption n ai pas remplac&#233;.

Il est remplacer que si j appuye sur le bouton de la premiere fiche. ( enfaite mais bouton cr&#233;&#233; dynamiquement ne r&#233;pondent pas)



si vous pouvez me trouver l erreur ca serai tres sympa. C est surement tout bete mais je n arrive pas a la voire.

merci





procedure TF_Courbe_de_Bezier.nouvellecourbe1Click(Sender: TObject);



begin

//Cr&#233;ation dynamique du page control

TPageControl.Create(self);

with PageControl1 do

  begin

  parent:=F_Courbe_de_Bezier;

  Align:=alnone;

  end;

//Cr&#233;ation dynamique du Tabsheet

Tabsheet1:=TTabSheet.Create(self);

with TabSheet1 do

  begin

  PageControl:=PageControl1;

  PageControl.ActivePage:=tabsheet1;

  tabsheet1.Caption:='courbe';

  end;



E_nom1:=TEdit.Create(self);

//creation dynamique du EDIT

with E_nom1 do

     begin

     E_nom:=E_nom1 ;

     Text:= 'saisissez le nom de la courbe';

     parent:= Tabsheet1;

     left:=13;

     top:=16;

     height:=21;

     width:=248;

     align:=alnone;

     end;



colorbox1:=TColorBox.Create(self);

//creation dynamique du colorbox

with  colorbox1 do

      begin

      colorbox:=colorbox1;

      parent:= Tabsheet1;

      left:=13;

      top:=72;

      width:=248;

      height:=22;

      align:=alnone;

      end;



B_ok1:=TButton.Create(self);

with  B_ok1 do

      begin

      B_ok:=B_ok1;

      parent:= Tabsheet1;

      left:=280;

      top:=20;

      width:=59;

      height:=20;

      align:=alnone;

      caption:='OK';

      end;

end;



//_______________________________________________________________________





procedure TF_Courbe_de_Bezier.B_ok1Click(Sender: TObject);

begin

Tabsheet1.Caption:=E_nom1.Text;

end;

















c assez urgent

merci

ni69 · Accepted Answer

il ne faut pas oublier de mettre ceci lors de la cr&#233;ation du bouton :
with B_ok1 do
  begin
    [...]
    OnClick := TF_Courbe_de_Bezier.B_ok1Click;
  end;

sinon, c'est s&#251;r que cela ne marchera pas, vu qu'aucun &#233;v&#233;nement n'est associ&#233; au bouton 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

killerdam · Answer

ok merci ca marche a part qu il y a une petite erreur.
 
il faut remplacer : OnClick := TF_Courbe_de_Bezier.B_ok1Click;

 
par  OnClick := B_ok1Click;

ni69 · Answer

d&#233;sol&#233; pour l'erreur, mais j'ai tap&#233; mon code un peu vite 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

killerdam · Answer

c est pas grave.
merci beaucoup.
et a plus tard peut etre.

Bouton dynamique

4 réponses

Votre réponse

Discussions similaires