unit IValueObjectListUnit;
interface
uses
Classes;
type
IValueObjectList = interface(IUnknown)
['{80AF05AA-0960-4FC2-91F8-BAA24731D156}']
procedure InitVOListObj(sVOName: St
unit Unit2;
interface
uses
Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF},Graphics;
type
TClickPic = class(TThread)
private
procedure SetName;
protected
public
x,y:inte
unit Unit2;
interface
uses
Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF},Graphics;
type
TClickPic = class(TThread)
private
procedure SetName;
protected
public
x,y:inte
