P pan369 Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-24 #1 打印一个form中的多个edit中的内容时,有什么简便的方法? 比如40个edit.
A ahxia Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-24 #4 for i := ComponentCount -1do wnto 0do begin temp := component; if (temp is TEdit) then memo1.items.add((temp as TEdit).text); end; 这样可以吧?
for i := ComponentCount -1do wnto 0do begin temp := component; if (temp is TEdit) then memo1.items.add((temp as TEdit).text); end; 这样可以吧?
H hfghfghfg Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-24 #6 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:= 0 to ComponentCount-1do begin if Components is TWinControl then if not (Components is TEdit )then TWinControl(Components).Hide; end; print; end;
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:= 0 to ComponentCount-1do begin if Components is TWinControl then if not (Components is TEdit )then TWinControl(Components).Hide; end; print; end;
P pan369 Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-09 #7 这样好像不能控制打印画布的大小,而且位置难以确定,还会打印背景色. 请问有什么更好的办法么? 能否详细一点,多谢!
B blueboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-09 #9 很久以前做的一个控件，可以打印放在FORM上的象DBGrid、StringGrid、Edit 等十多种常用的可视化的控件，用起来很简单。看我的帖子“一分钱，一分货”， 上面有原程序，为何不试一试？ http://www.delphibbs.com/delphibbs/dispq.asp?lid=941617
很久以前做的一个控件，可以打印放在FORM上的象DBGrid、StringGrid、Edit 等十多种常用的可视化的控件，用起来很简单。看我的帖子“一分钱，一分货”， 上面有原程序，为何不试一试？ http://www.delphibbs.com/delphibbs/dispq.asp?lid=941617
P pan369 Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-18 #10 哪位老兄给点源程序吧,要求打印一个form中一些固定位置的form中的内容,而且画布超过一屏.
