Image - Keine Reaktion

[xaromz]

Hallo,

Du must dem Image sagen, dass es sich neu zeichnen soll. Wenn Du das Bitmap manipulierst bekommt das Image nichts mit. Beim ersten Aufruf wird das Bitmap erzeugt, das kriegt es mit.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  inc(x); 
  Front := TBitmap.Create; 
  Front.Width := 200; 
  Front.Height := 200; 
  Front.Assign(Background); 
  Front.Canvas.TextOut(1,1,IntToStr(x)); 

  BitBlt(Image1.Canvas.Handle,0,0,200,200,Front.Canvas.Handle,0,0,SRCCOPY); 
  Image1.Refresh; // <----- das hier

  {nur als Test, ob logisch irgendwas falsch ist} 
  BitBlt(Canvas.Handle,0,0,200,200,Front.Canvas.Handle,0,0,SRCCOPY); 


  Front.Free; 
end;

Gruß
xaromz

// Edit: Willkommen