7 7030 Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-08 #1 当它获得焦点时,能出现8个小黑方块,类似程序设计时当单击label 时能出现8个小黑方块一样的效果。
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-08 #2 呵呵,我有一个huizhang做的 TLine控件,完全符合 http://wjiachun.edu.chinaren.com/down/Tline.zip
O OopsWare Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-14 #3 procedure TForm1.Edit1Enter(Sender: TObject); begin Canvas.Rectangle(...); Canvas.Rectangle(...); // x8 end;
procedure TForm1.Edit1Enter(Sender: TObject); begin Canvas.Rectangle(...); Canvas.Rectangle(...); // x8 end;
M mikecool Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-14 #4 你看看最新的深度历险里有个叫Design的例子还是控件,是用来实时添加删除修改Form上的 控件的,若是没找到,我发给你一份