jControl

type jControl = class(TComponent)

protected

  FjClass: jobject;

  FClassPath: string;

  FjObject: jobject;

  FInitialized: Boolean;

  FCustomColor: DWord;

  FEnabled: Boolean;

  procedure SetEnabled(); virtual;

public

  property Initialized: Boolean; [rw]

  constructor Create(); override;

  destructor Destroy; override;

  procedure Init; virtual;

  procedure AttachCurrentThread();

  property jSelf: jobject; [r]

end;

jControl

TObject