begin process at 2012 02 11 03:08:09
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Delphi

 > 

Système

 > 

Périphérique

 > 

Pb Référence With


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Pb Référence With

vendredi 14 décembre 2007 à 18:46:00 | Pb Référence With

Jean_Jean

Membre Club

 Bonjour à tous,

Voilà, j'ai trouvé une bizarerie avec le référencement de With. Bien que j'ai contourné le problème en n'utilisant pas cette instruction, j'aime bien comprendre le pourquoi. Si qlq a une idée!!

J'ai des panels créés dynamiquement que je charge dans un tableau de Panel CurActivite. Je change la couleur du Panel concerné par la classique instruction qui fonctionne :
    CurActivite[NumActivite].Color := TPanel(FindComponent('Panel'+IntToStr(NumSelect))).Color;

Mais comme j'ai d'autres réglages à effectuer sur les Panels du Tableau, j'utilise With et là ça plante à l'exécution :
Message d'erreur "...accès violation at xxx : read of adress..."

With CurActivite[NumActivite] do
 begin
     Color   := TPanel(FindComponent('Panel'+IntToStr(NumSelect+17))).Color;
     ...
 end;

Merci!

Jean_Jean
vendredi 14 décembre 2007 à 19:07:11 | Re : Pb Référence With

cirec

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
Salut,

tu t'y prends mal

il faut faire :

With TPanel(FindComponent('Panel' + IntToStr(NumSelect + 17))) do
Begin
  CurActivite[NumActivite].Color := Color;
  CurActivite[NumActivite].Width := Width;
End;
 
@+
Cirec
vendredi 14 décembre 2007 à 20:15:25 | Re : Pb Référence With

Guillemouze
Réponse acceptée !
With CurActivite[NumActivite] do
begin
  Color    //color de CurActivite[]
  :=
  TPanel(
    FindComponent( //findcomponent est appelé sur CurActivite[] !!! => nil
      'Panel'+IntToStr(NumSelect+17)
    )
  )
  .Color; //nil.color = ?
      
     ...
 end;

 tu peux palier le probleme en faisant comme ca :

With CurActivite[NumActivite] do
 begin
     Color   := TPanel(Self.FindComponent('Panel'+IntToStr(NumSelect+17))).Color;
     ...
 end;
vendredi 14 décembre 2007 à 20:39:44 | Re : Pb Référence With

japee

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
Bien vu, Guillemouze.

En effet, ça fonctionne aussi comme ça :

var
  AColor: TColor;

AColor := TPanel(FindComponent('Panel'+IntToStr(NumSelect+17))).Color;

with CurActivite[NumActivite] do
begin  
  Color := AColor;
  // ...
end;
vendredi 14 décembre 2007 à 20:48:03 | Re : Pb Référence With

Guillemouze
merci jappe ;)

Attention notez bien ce qui va suivre, je vais pas le dire souvent :
C'est un avantagede VB su Delphi, en VB, il faut prefixer d'un point les elements du with. par exemple :
with monpanel do
  .Color := findcomponent

"." devant color => color du with
pas de "." devant le findcomponent => methode de l'objet implicite (self?)


 
vendredi 14 décembre 2007 à 21:25:31 | Re : Pb Référence With

Caribensila

Membre Club
Salut,

Moi, j'aime pas le "with" car je trouve que ça rend souvent le code moins lisible.
Je l'emploie quand ça évite une variable locale, et encore!
vendredi 14 décembre 2007 à 22:08:05 | Re : Pb Référence With

Jean_Jean

Membre Club
Merci à tous!

@Cirec, bien vu! J'avais effectivemlent inversé, Mdr, c'est quand même pas Alzheimer!
@ Guillemouze : intéressant la référence à self
@ Japee : toujours pour la simplification de lecture! Tu devrais écrire un bouquin pour débutant
@ Cari : Qd même ds certains cas, ça allège! Mais j'ai remarqué aussi que dans d'autres effectivement on ne sait plus à qui appartient la propriété!
Bien à vous!

Jean_Jean
vendredi 14 décembre 2007 à 23:39:41 | Re : Pb Référence With

f0xi

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !

function AssignProp(src, dest : TPanel): boolean;
begin
  result := assigned(src) and assigned(dest);
  if not result then
    exit;

  dest.color := src.color;
  dest.width := src.width;
  // dest.      := src. ;
end;


...
var P1, P2 : TPanel;
begin
  P1 := CurActivite[NumActivite];
  P2 := TPanel(FindComponent('Panel'+IntToStr(NumSelect+17))); // <== BEURK!!

  AssignProp(P1, P2);
end;


deefsign.gif
dimanche 16 décembre 2007 à 11:24:08 | Re : Pb Référence With

Jean_Jean

Membre Club
Bon je refais un essai de commentaire.

Jean_Jean
dimanche 16 décembre 2007 à 11:26:42 | Re : Pb Référence With

Jean_Jean

Membre Club
Ah, ça y est!
J'avais un problème avec mon éditeur.
Merci donc Foxi pour ce code très intéressant et simplificateur d'écriture de la série FindComponent...
A+
Jean_Jean

1 2

Cette discussion est classée dans : pb, panel, color, with, curactivite

Répondre à ce message

Sujets en rapport avec ce message

PB pour dessiner sur un Canvas je séche... [ par ffert ] Bonjour Voilà un des Bug les plus incompréhensible que j'ai rencontré.... : J'ai un Panel contenant un TImage. Le Panel est en "Visible := False" à l' Color, Font, Size [ par yannba ] Suivant une instruction, je changes la couleur, taille, fonte de certains edit, label, ... Pour cla, je fais : with Edit4 do Begin Font.Name:=FontName [thread] pb apres arret de thread [ par titiyo ] bonjour, j'ai un pb car quand j'arrete un thread , j'ai un message : receiveheader:net packets out of order : received[0], expected[1]. quoi que je fa Comment faire tourner un pps (Powerpoint) à l'intérieur d'un panel d'une form delphi mais pas en plein écran ? [ par malerba ] Bonjour à tous, je voudrais savoir comment intégrer un diaporama Powerpoint dans une appli delphi de façon à ce qu'il occupe qu'une seule partie d'une instruction case [ par mounjetado ] bonjour  :)j'utilise une variable pour définir une plage dans une instruction case.le compilateur me demande une constante, évidemment!mon pb c'est qu probleme d'affichage: VertScrollBar [ par PyRuSs ] Yo! Alors j'ai un serieux probleme... ca fait depuis la semain que j'ai le bug (seulement deux jour que j'essai de le reparer) et la j'y comprend vra pb infos de version [ par smazaudi ] Bonjour à tous Voilà, je développe actuellement en Delphi 5 (je sais que c'est dépassé mais je n'ai pas le choix). Je viens d'améliorer mon soft et d Forme en i pour eviter de nombreuses lignes [ par Valentin_Loupe ] Bonjour, je suis débutant en delphi et je voudrais savoir comment je peux faire pour par exemple changer la couleur de 15 panels avec 15 checkbox, mai PB connection internet [ par tagadas ] Bonjour a tous,J'ai besoin d'entrer des parametre de connexion a mon robot qui est en delphi, pour qu'il puisse se connecter a internet (login,passwor Pb clavier visual [ par naugondo ] <TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTAB


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,415 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)