3 Composants et un problème acec TImage

Question

Bonjour tout le monde,
mon probl&#232;me est le suivant :
je cr&#233;e un projet avec Form1 FormStyle &#224; fsMDIForm
je cr&#233;e une fiche avec Form2 FormStyle &#224; fsMDIChild et je lui met une couleur de fond quelconque.
Dans form1 je mets 1 TImage et 1 boutton
maintenant quand je clique sur le bouton je veux voir la repr&#233;sentation de Form2 dans TImage, mais rien ne se passe sauf si je d&#233;place la fen&#234;tre fille sur TImage et que je la retire, alors la ! miracle !le TImage me dessine bien la Form2.
Si quelq'un pouvait m'expliquait et surtout m'&#233;vitait cette gymnatique ce serait bien (je joint mon code )


unit Unit1;


interface


uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;


type


TForm1 =  class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);


private
{ D&#233;clarations priv&#233;es }


public
{ D&#233;clarations publiques }

 end; 


var


Form1: TForm1;


implementation


{$R *.dfm}


uses unit2 ;


procedure TForm1.Button1Click(Sender: TObject);


var R :TRect;


begin
R: =image1.ClientRect;
image1.Canvas.Brush.Color:=clwhite;
image1.Canvas.StretchDraw(R,form2.GetFormImage);
end;


end.

ni69 · Answer

Tu peux remplacer


procedure TForm1.Button1Click(Sender: TObject);

var 

  R :TRect;

begin

  R:= image1.ClientRect;

  image1.Canvas.Brush.Color:=clwhite;

  image1.Canvas.StretchDraw(R,form2.GetFormImage);

end;
par :

 procedure  TForm1.Button1Click(Sender: TObject);
  
Image1.Picture.Bitmap.Assign(Form2.GetFormImage);
end;



C'est plus simple 


@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size ="2" width="100%">


 
 
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

djiki · Answer

OK c'est + simple mais &#231;a marche pas mieux !

ni69 · Answer

Essaye en rajoutant Update apr&#232;s la mise en place de l'image...



procedure TForm1.Button1Click(Sender: TObject);
   Image1.Picture.Bitmap.Assign(Form2.GetFormImage);

   Update;

end;

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">


 
 
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

djiki · Answer

ni69 · Answer

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">


 
 
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

djiki · Answer

djiki · Answer

Bon troisi&#232;me essai !

Donc, avec update ,TIMage est toujours invisible !
Je parviens &#224; l'afficher en cr&#233;ant un effet "paupi&#232;re" : je modifie les dimensions du bouton pour recouvrir le Timage, je redessine le bouton et enfin je lui redonne sa taille d'origine.
Mais ce n'est pas ce que j'attends de Delphi.

Allo, allo la terre ,vous me recevez ?

3 Composants et un problème acec TImage

7 réponses

Votre réponse

Discussions similaires