h_Wnd (AnnToolbar) example for Delphi

// This Example is also for Tool Property.
procedure TMainFrm.LEADAnnCtrl1AnnToolDestroy ;
var
   iTool:Integer;
begin
   ShowMessage ( 'Toolbar has been destroyed!' ) ;
   if (LEADAnn1.AnnToolbar.h_Wnd = 0) then
      LEADAnn1.AnnToolbar.CreateTB ( 0, 0, 0 );
   iTool:= LEADAnn1.AnnToolbar.Tool;

end;