Class TimgFinder (unit Imgfind) |
TForm
Constructors |
Functions |
Properties |
Events |
Variables |
Constructors |
Functions |
procedure TimgFinder.BitBtn4Click(Sender: TObject); var temp : TBitmap; begin if image.picture.bitmap<>nil then begin temp:=TBitmap.Create; image.picture.bitmap.assign(temp); temp.free; BitBtn4.enabled:=FALSE; end; end;
Properties |
Events |
Variables |
Public declarations
Private declarations