怎样 打印 Delphi TreeView？问题已经解决，朋友们来接分吧！(100)

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-22

• #1

备注：节点展开后可能比较长，不要截图的方法。

 

D

delhpi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-22

• #2

procedure TForm1.Button3Click(Sender: TObject);var i: Integer;
s: string;
begin
Memo1.Clear;
for i := 0 to TreeView1.Items.Count - 1do
begin
s := StringOfChar(#32, TreeView1.Items.Level * 4);
s := s + TreeView1.Items.Text;
Memo1.Lines.Add(s);
end;
end;

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-23

• #3

问题已经解决，朋友们来接分吧！

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-23

• #4

把解决方法贴出，供大家分享一下~~顺便接分~~

 

F

fluganto

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-23

• #5

接分![][][8D][]

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-23

• #6

呵呵，没有什么代码。用控件Ehlib4.2.16。

 

R

ranyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-23

• #7

接～

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-23

• #8

多人接受答案了。