procedure moveObject(obj:TWinControl);
begin
obj.left:=obj.left-10;
end;
或
procedure moveObject(obj:TObject);
begin
if (Obj is TWinControl) then
obj.left:=obj.left-10;
end;
begin
obj.left:=obj.left-10;
end;
或
procedure moveObject(obj:TObject);
begin
if (Obj is TWinControl) then
obj.left:=obj.left-10;
end;
解决方案 »
- dbgrid 显示小数点后有4个零的数据
- 开帖散分,6/10[铁公鸡拨毛]
- 有关DELPHI7.0 与 QuickReport 的问题....
- DELPHI里用Qreport做报表,打印的时候字段太长,能不能折行打印?那为大侠帮帮忙,急!!!急!!!急!!!
- 高分請教高手:一個關於Delphi在串行通信應用方面的問題
- 会delphi和vb的达人们来帮忙翻译喽!!!再线等待。。。。。。
- 自定义类CREATE时出错,请帮助!
- 在QRGroup中做统计,SUM(IF(Query1.计划完成时间<DATE,1,0)),计数值不准,为什么?
- Delphi 中怎样写汇编过程之间的调用?请付例子,急,加分!!
- 怎样给MDI主窗口加一个背景图
- 超菜鸟问题,怎样传递一个控件作为变量???立刻送分!
- 现在有些服务器是限制单个IP下载的,有没有办法骗过对方服务器我分别是两个以上的IP在同时下载
procedure moveObject(obj:TObject);
begin
if (Obj is TWinControl) then
TWinControl(obj).left:=TWinControl(obj).left-10;
end;