Form.Repaint

[himitsu]

Du mußt die BitMap natürlich auch neu zeichnen, wenn der Formular neu gezeichnet wird.

Also müssen die Bilder auch geladen bleiben - es wäre ja nicht so gut diese jedesmal neu zu laden

z.B.:

Delphi-Quellcode:

Var NButton1, NButton2, NButton3: TBitMap;

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    NButton1 := TBitmap.Create;
    NButton1.LoadFromFile('name1');
    NButton2 := TBitmap.Create;
    NButton2.LoadFromFile('name2');
    NButton3 := TBitmap.Create;
    NButton3.LoadFromFile('name3');
  End;

Procedure TForm1.FormDestroy(Sender: TObject);
  Begin
    NButton1.Free;
    NButton2.Free;
    NButton3.Free;
  End;

Procedure TForm1.FormPaint(Sender: TObject);
  Begin
    Canvas.Draw(x1, y1, NButton1);
    Canvas.Draw(x2, y2, NButton2);
    Canvas.Draw(x3, y3, NButton3);
  End;