|
#1
|
|||
|
|||
Вывод на печать
Всем привет!!!Ребята, дело такое на форме есть компоненты LABEL, нужно чтобы при нажатии на кнопочку производилась печать информации (текста) содержащаяся в компонентах???пример кода, за ранее всем спасибо))))))
|
#2
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Print; end; или Код:
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls, ComCtrls; procedure TForm1.Button1Click(Sender: TObject); var RichEdit: TRichEdit; i: Integer; begin RichEdit:=TRichEdit.Create(Self); RichEdit.Parent:=Self; try for i:=0 to ComponentCount-1 do if Components[i] is TLabel then RichEdit.Lines.Add(TLabel(Components[i]).Caption); RichEdit.Print(''); finally RichEdit.Free; end; end; Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 12.11.2010 в 08:48. |
#3
|
|||
|
|||
Спасибочки
|