Como fazer o Canvas render quando qualquer janela é monitorada

← →
dimonf (2001-12-16 17:23) [0]

As pessoas, como se certificar de que meus dados que eu saída para o Canvas não desaparecem durante as manipulações de janela?
E como faço um manipulador de pressionamento de tecla se eu criar o TPanel programaticamente?

tipo
TPreview = class (TPanel)
privado
propriedade Canvas;
protegido
público
construtor Create (AOwner: TComponent); substituir;
end;

{TPreview}

construtor TPreview.Create (AOwner: TComponent);
começar
Inherited Create (AOwner);
Parent: = AOwner como TWinControl;
BevelInner: = bvNone;
BevelOuter: = bvNone;
Cor: = preto;
BorderStyle: = bsNone;
end;

procedimento TForm1.FormPaint (Sender: TObject);
var R: TRect;
começar
com MyPrev do
começar
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
R: = recto (10,10,100,100);
Canvas.Rectangle (R.Left-1, R. Top-1, R. Direito + 1, R. Fundo + 1);
Canvas.TextRect (R, 0,0, "Demos");
end;
end;

procedimento TForm1.FormCreate (Sender: TObject);
var R: TRect;
começar
MyPrev: = TPreview.Create (Self);
MyPrev.Height: = Form1.Height * 2;
Panel1.Height: = Form1.Height * 2;
com MyPrev do
começar
Canvas.Pen.Width: = 1;
Canvas.Brush.Style: = bsSolid;
Canvas.Font.Size: = 18;
end;
end;

end;

← →
dimonf (2001-12-16 18:09) [1]

Pessoas, sem pensamentos ???

Como fazer o Canvas render quando qualquer janela é monitorada Encontre agências semelhantes