1 form pour 2 unitsRésolu

Question

Bonjour à tous,

j'ai 2 units pour 1 form et l'unit2 ne peut pa modifier la form1, j'ai essayé
unit1.form1.log....  (log étant un mémo)
form1.log....

Comment faire pour que l'unit2 puisse accéder aux 'objets'  de la form1, exemple

Unit2;

monsocket.active:=true;

(monsocket étant un serveursocket sur la form1)

merci à tous

Filipe

florenth · Accepted Answer

Non c'est beaucoup plus simple :

Dans ton Unit1 tu met Unit2 dans le uses de la partie interface

unit Unit1;
interface

uses
  [...], Unit2;



Et dans ton Unit2, tu met Unit1 dans le uses de la partie implémentation car sinon tu crée une référence circulaire (c-a-d que deux unités se réferencent mutuellement)

unit Unit2;

[ ... ] 

implementation

uses 
  Unit1;   // Et voila !!

{$R *.dfm}


@ ++
Florent

Si tu ne te plantes pas ......
     tu ne poussera jamais

ni69 · Answer

Slt Filipe !

La solution est de déclarer l'unit1 dans la partie 'uses' de l'unit2. Pour cela, positionne-toi dans l'unit2, et fais 'fichier' 'Utiliser l'unité...' et sélectionne l'unit1 : cela rajoute automatiquement l'unit1 dans le 'uses' de l'unit2.
Ensuite, tu pourras "agir à distance" comme tu le souhaites sur les composants de la form1 à partir de l'unit2 en faisant simplement par exemple :
Form1.Label1.Caption := 'texte';


 :) 
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

Filipe35 · Answer

Salut ni69,

merci pour ta réponse rapide mais:
utiliser l'unité est grisé.

comment faire dans ce cas ?

Merci

Filipe

Filipe35 · Answer

à oui aussi j'ai oublier de dire
que l'unit2 à déja dans ces uses l'unit1
(car je met les fonctions dans l'unit2)

Filipe

cs_MHI · Answer

Si tu as déjà unit1 dans le uses dans 'interface' ou dans 'implementation', alors du devrait pouvaoir accéder au objet de ta form1.

Il faudrait plus d'indication

ni69 · Answer

Quand je parlais des 'uses', je parlais de ceux de la partie 'Implémentation' pas de la partie 'Interface' !
Il faut mettre les déclarations toutes dans la partie implémentation et il n'y aura aucun problème !
(pour moi cela semblait évident dans ma première réponse, alors dsl de ne pas m'être exprimé en entier...  ?-) )

 :) 
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

Filipe35 · Answer

merci bocou à vous tous,

ca marche à merveille

Bonne prog 

Filipe

cs_groben · Answer

Merci les gars, 2 jours que je cherchais dans l'aide de Delphi !!!

cs_groben · Answer

Je pensais que c'était bon, mais ça ne veut pas compiler :
mon projet étant trop gros, g fait un petit prog pour tester :
unit forme;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, somme;

var
  Form1: TForm1;

implementation

procedure TForm1.goClick(Sender: TObject);
var
inta, intb :integer;
ptc        :PInteger;
begin
ptc^:=5;
inta :=strToInt(a.text);  //ici, a & b sont des TEDIT
intb :=strToInt(b.text);
somme.add(inta,intb,ptc);
//add(inta,intb,ptc);    //non plus
somme.caption := intTostr(ptc^);
end;
############################
et dans l'unité somme : 
implementation
uses forme;
procedure add(a,b :integer; ptc:PInteger);
begin
  ptc^:=a+b;
end;

Message : "identificateur non déclaré"
là, je ne comprends pas, les liens sont cencés être là...
Si vous pouvez m'éclairer

florenth · Answer

Il faur que tu s&#233;clares ta proc&#233;dure Add() dans la partie interface de ton unit&#233; somme. Sinon ,elle n'est visible que par les m&#233;thodes situ&#233;es en dessous d'elle dans la meme unit&#233; qu'elle.

  unit  somme;
interface

procedure add(a,b :integer; ptc:PInteger);  // D&#233;claration

implementation
uses forme;

procedure add(a,b :integer; ptc:PInteger);
begin
  ptc^: =a+b;
end;
 ++

Si tu ne te plantes pas ......
tu ne poussera jamais

cs_groben · Answer

Je suis obligé de le mettre après uses (pour les Pinteger) mais ça ne fonctionne pas non plus... c'est peut être à cause de ma vieille version de Delphi (2.0)
Je n'ai pas le choix, je suis stagiaire dans une boite qui ne veut pas évoluer à ce niveau.

florenth · Answer

Du moment que tu as la d&#233;claration dans la partie interface et l'impl&#233;mentation dans la partie impl&#233;mentation, normalement il n'y a pas de probl&#232;me.

Si tu ne te plantes pas ......
tu ne poussera jamais

florenth · Answer

Du moment que tu as la d&#233;claration dans la partie interface et l'impl&#233;mentation dans la partie impl&#233;mentation, normalement il n'y a pas de probl&#232;me.

Si tu ne te plantes pas ......
tu ne poussera jamais

Filipe35 · Answer

wow quel "d&#233;t&#233;rage" de topic ^^



mais merci :)

__________________________________________________
  - Le site sur ogame de r&#233;f&#233;rence !
  - Le g&#233;n&#

florenth · Answer

Et oui, un an plus tard, il est toujours d'actualit&#233;. Ca prouve que "groben" s'est servi de la fonction "rechercher" du site qui est l&#224; pour &#231;a. j'en connais d'autres qui devraient s'y mettre (pas toi filipe mais d'autres ;-)

++ Flo

PS : Au passage, desol&#233; pour le double post

Si tu ne te plantes pas ......
tu ne poussera jamais

1 form pour 2 units

15 réponses

Votre réponse

Discussions similaires