哪位老大用过insertTool啊? (50分)

  • 主题发起人 主题发起人 没理头号
  • 开始时间 开始时间

没理头号

Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
哪位老大用过insertTool啊?下面的code是什么意思啊?[:D][:D][:(][:(]<br>&nbsp; &nbsp; &nbsp; &nbsp; b := InsertTool(fToolBar.Selected, (Sender as TXYGraph), x, y);<br>&nbsp; &nbsp; &nbsp; &nbsp; fToolBar.btnNone.Down := true;<br>&nbsp; &nbsp; &nbsp; &nbsp; fToolBar.btnNone.Click;<br>&nbsp; &nbsp; &nbsp; &nbsp; if b &lt;&gt; nil then<br>&nbsp; &nbsp; &nbsp; &nbsp; begin try<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if lcount &gt; 0 then<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; begin try<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SetSucc(ltool, b);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SetPrev(b, ltool);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; except end; end;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ltool := b;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if b.ClassName = 'TDoubleLine' then<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ltool := (b as TDoubleLine).Lines[1];<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; inc(lcount);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; for i := 1 to MAX_LINE_NUM do<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if Lines = nil then<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; begin try<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Lines := b;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; break;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; except end; end;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; exit;
 
上面的我搞定!<br>但我仍不明白是什么意思?<br>管它呢!<br>先用再说!
 
谁来get分,我想结束这个帖子
 
后退
顶部