Sujet Précédent Sujet Suivant

D'un dbimage à un tblobfield

bilou2000 Messages postés 30 Date d'inscription lundi 10 novembre 2003 Statut Membre Dernière intervention 15 mars 2005 - 15 févr. 2005 à 20:34
bilou2000 Messages postés 30 Date d'inscription lundi 10 novembre 2003 Statut Membre Dernière intervention 15 mars 2005 - 15 févr. 2005 à 20:34
bonjour
j'ai des DBimages connecter a une base paradox.
losque je clique sur un dbimage je recupere l'image dans un timage sous la forme

chart1.BackImage.Assign(TDbimage(Sender).picture);
// on rend visible le chart une fois l'image de fond chargé.
Chart1.Visible := true;
DEPspriteX1 := Tdbimage(sender).left;
DEPspriteY1 := Tdbimage(sender).top;


if Image1.Picture.Bitmap.Empty = true then
begin
ARRSpriteX2 := (form1.SecretPanel1.Left + form1.Image1.Left);
ARRSpriteY2 := (form1.secretpanel1.Top + form1.image1.Top);


droite; //déplacement
Image1.Picture.Assign(TDbimage(Sender).picture);( merci manchester)


Form1.Image1.Visible := true; // on affiche le timage.
Chart1.Visible := false; // on cache le chart.
// coordonnée du CHART à l'exterieur evite le cliping de la source
chart1.Top := -100; // le Chart étant défini invisible dés le départ.
chart1.Left := 1; //
// on charge le blob son dans la structure temporaire.
MonBlobfield1 := Tblobfield.Create(Tdbimage(sender).DataSource.DataSet);
Monblobfield1 := table1son;
Vimag:=Vimag+1;
mon prob est lorsque que je veux récuperer le blobfield table1son (creer lors de la conception) à l'aide du code :
TDimage(sender).......(du style ligne verte) pour arriver a mon Tblobfield de son.
comment faire j'ai bien pensé a redescendre au niveau de Tcomponent commun au deux mais je ne peux remonter pour atteindre tblobfield.
Rejoignez-nous