Любой потомок TControl умеет рисовать на Canvas других элементов методом PaintTo
Нарисуем кнопку в левом верхнем углу формы. По нажатию на Button1 происходит прорисовка.
|
1 2 3 4 5 6 |
procedure TForm2.Button1Click(Sender: TObject); begin Form2.Canvas.BeginScene; Button1.PaintTo(Form2.Canvas,RectF(0,0,Button1.Width,button1.Height)); Form2.Canvas.EndScene; end; |
