procedure dans autre formRésolu

Question

Bonjour,



Comment appeler une procedure qui n'est pas d&#233;clar&#233;e dans la form qui l'appelle ?

exemple:

Form1 contient un champ TEdit

Form2 contient 

  un TLabel et 

  une fonction Uppercase(L:string) qui transforme L en lettre capitale



Je veux pouvoir faire par exemple lors de l'&#233;venement TEditChange, appeler la fonction uppercase(TEdit.text)



merci

retaks666 · Accepted Answer

ben tu vais &#231;a:

procedure TForm2.TEditChange(sender: TObject):


Uses unit1; //pour form1

begin

form1.uppercase(TEdit.text);

end;



&#231;a devrait marche, enfin sinon met le uses dans la partie implementation.

ni69 · Answer

Pourquoi ne pas mettre tout simplement la propri&#233;t&#233; CharCase de ton Edit &#224; ecUpperCase ? 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

zitoune92 · Answer

Merci pour vos r&#233;ponses.



Pour ni69: j'avais pris uppercase comme exemple. Il y a bien s&#251;r une fonction qui fait &#231;a



A+

ni69 · Answer

ok pas de probl&#232;me... 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Procedure dans autre form

4 réponses

Votre réponse

Discussions similaires