uses fenetredeux; private sVariable : string; procedure Tfenetreun.Button1Click(Sender: TObject); begin sVariable := 'TOTO'; fenetredeux.Variable := sVariable; end;
private FVariable : string; public property Variable : string read FVariable write FVaraible; end;
private FVariable : string; procedure SetPropVariable(value : string); function SetPropVariable : string; public property Variable : string read FVariable write FVaraible; end; procedure Tfenetredeux.SetPropVariable(value : string); begin // Ton traitement... FVariable := value; end; function fenetredeux.SetPropVariable : string; begin // Ton traitement... Result := FVariable; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question