печать panel1

[varelik]

добрый день!
подскажите, пжлста, как можно распечатать то, что находится на panel1 главной формы.
вот так получается (по крайней мере компилируется):

if printdialog1.execute then begin
form1.print;
end;

а вот так нет:
form1.panel1.print;

[KREGI]

У панели нет свойства print

[varelik]

KREGI,
ну да, уже понял.
и тут вобще ничего не сделать. или есть какие варианты??

[KREGI]

в принципе, можно текст из панели сохранить куда нить, и распечатать, например в txt (или в переменную) и распечатать

[varelik]

да у меня смысл в том, что на этой панели я кучу динамических timage насоздовал- их то и нужно на печать вывести

[russian-stalker]

Ничего умнее не придумал:

procedure TForm1.Button2Click(Sender: TObject);
var
tmpform:TForm;
l,t,h,w:integer;
begin
tmpform:=Tform.Create(nil);
l:=panel1.Left;
t:=panel1.Top;
h:=panel1.Height;
w:=panel1.Width;
tmpform.Height:=h;
tmpform.Width:=w;
panel1.Left:=0;
panel1.Top:=0;
tmpform.visible:=true;
windows.SetParent(panel1.Handle,tmpform.Handle);
tmpform.Print;
windows.SetParent(panel1.Handle,Handle);
panel1.Top:=t;
panel1.Left:=l;
end;

[varelik]

russian-stalker,
это то,что надо