有一个shape控件,如何创建他的新的实例? 有一个shape控件,如何创建他的新的实例?如vb,vc可以用new。shape控件没试过。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 选择一个panel上的控件,怎样在另一个panel上出现该控件的实例? procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var TempShape:TShape;begin TempShape:=TShape.Create(self); with TempShape do begin TempShape.Parent:=panel2; Left:=Shape1.Left; Top:=Shape1.Top; end;end; 看下结贴率 阿日要走了,无奈 各位仁兄中有海南的吗?那里的薪水怎样? messagebox 对话框 简单问题 急急,谁有毕业设计书 关于文本文件处理的几个简单问题,在线等待,急~ 如何在监视系统中,当捕获的图像改变时,摄像头立刻监视,并保存为AVI文件????希望卷起千堆雪能帮我!!!! 谁知道如何实现拖动button,就能拖动整个form移动? 我想100分问一个关于在主窗体和单元中调用activex的不同的情况的问题! 比對上下筆資料 深圳:高级Delphi软件工程师(急聘!!!) 有做his的南京朋友吗?
Y: Integer);
var
TempShape:TShape;
begin
TempShape:=TShape.Create(self);
with TempShape do
begin
TempShape.Parent:=panel2;
Left:=Shape1.Left;
Top:=Shape1.Top;
end;
end;