cs_Michel34
Messages postés79Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention27 juin 2011
-
6 avril 2011 à 09:16
cs_Michel34
Messages postés79Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention27 juin 2011
-
8 avril 2011 à 15:56
Published
Property Chiffre_Heure_Visible :Boolean Read FChiffreHeureVisible Write SetChiffreHeureVisible;
Property FonteHeure : TFont Read FFonteHeure Write SetFonteHeure;
End;
// On s'occupe des modules de TFond
Procedure TFond.SetChiffreHeureVisible(Value : Boolean);
Begin
If FChiffreHeureVisible <> Value Then
Begin
FChiffreHeureVisible:=Value;
FModified:=OUI;
End;
End;
Procedure TFond.SetFonteHeure(value: TFont);
begin
If FFonteHeure <> Value Then
Begin
FFonteHeure:=Value;
FModified:=OUI;
End;
end;
// Maintenant je construis mon composant
Constructor TMonCompo.Create(Aowner: TComponent);
Begin
Inherited Create(Aowner);
// creation du Fond
Fond:=TFond.Create;
Fond.Chiffre_Heure_Visible:=OUI;
Fond.FonteHeure:=TFont.Create;
Fond.FonteHeure.Name:='Tahoma';
Alors voila mon souci , je ne sais pas ou j'ais commis l'erreur
la compilation sepasse bien ,je met mon compo sur ma form
je peux selectionner " FonteHeure " , j'ai laboite de saisie des Fontes
et ca coince quand je dis OK apres avoir selectionne une fonte, j'ai une erreur de Violation
et en plus ma fonte selectionnée n'est pas prise en compte.
Quelqu'un peut il me signaler ou est le Pb.J'espere avoir ete clair dans mes ennoncées.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 8 avril 2011 à 12:21
Salut,
change déjà ceci:
Procedure TFond.SetFonteHeure(value: TFont);
begin
If FFonteHeure <> Value Then
Begin
FFonteHeure:= Value; FModified:=OUI;
End;
end;
par :
procedure TFond.SetFonteHeure(value: TFont);
begin
if FFonteHeure <> Value then
begin
FFonteHeure.Assign(Value);
FModified: =OUI;
end;
end;
ta violation d'accès est certainement due à ça
ensuite "FFonteHeure" devrait être créée dans le constructeur de TFond et libérée dans son destructeur ... pas dans TMonCompo !!
Dernière chose ... de quelle classe dérive "TMonCompo" ?
Il y a de forte chance que TFont y soit déjà prévu ... si c'est le cas il suffit juste d'ajouter :
property Font;
dans la section "Published" et le tour est joué
cs_Michel34
Messages postés79Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention27 juin 2011 8 avril 2011 à 15:26
Salut Cirec ,
Je te remercie de prendre attention a mon souci,
en 1) mon compo est derive d'un TImage
en 2) Oui il existe la propriete Fonte dans le TImage
mais je souhaite pouvoir determiner des fontes
specifiques a differents elements de mon compo .
je vais d'abord tester ta solution , et je te donnerais les resultats .
cs_Michel34
Messages postés79Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention27 juin 2011 8 avril 2011 à 15:56
Salut cirec ,
ta solution est TOP ,j'aurais eu un gourdin sous la main ,je me serais frappe dessus tellement
la solution etait simple .
toujours dan la meme couillonnerie ,j'ais seven et je n'arrive plus a faire une chose simple
avec l'API suivante : ShowWindow(Application.Handle, SW_Hide) - cacher l'application
de la barre des taches .
recherche dans l'aide DELPHI , sous google ,etc ... , Rien .
il y a t'il une nouvelle API?