Onpaint Опции

[LostHOpe]

Помогите кто-нибудь сделать правельной прорисовку изображения, иначе когда запускаеш программу и если провести другим окошком по ней всё исчезает.

Ето всё пишется вот сдесь
procedure TForm1.PaintBoxPaint(Sender: TObject);
begin


end;

[hiv]

Замени PainBox на Image:TImage;
Сделай Image невидимым и постав свойство Transparent = true;
Создай процедуру onPaint у объекта TForm:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.CopyMode:=cmSrcAnd;
  Canvas.CopyRect(Image.BoundsRect,Image.Canvas,Image.ClientRect);
end;

И добавь перед

  Application.ProcessMessages; // даем поработать другим

следующую строку:

FormPaint(Sender);