|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Pb Référence With [ Système / Périphérique ] (Jean_Jean)
 Informations & options pour cette discussion
vendredi 14 décembre 2007 à 18:46:00 |
Pb Référence With
|
vendredi 14 décembre 2007 à 19:07:11 |
Re : Pb Référence With
|
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
|
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
|
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
|
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
|
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;
|
|
|
dimanche 16 décembre 2007 à 11:24:08 |
Re : Pb Référence With
Jean_Jean
|
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
|
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
|
|
|
Cette discussion est classé 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
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|