nentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (speedBtn); begin speedBtn. Destroy; speedBtn:=nil; exit; end; end; listbox1. Selected [12] then begin//Shapecheckbox1. Checked then begin (h, h13. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (shape)) then begin:=TShape. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=13 ;. Height:=30 ;. Width:=80 ;. Name:= Shape raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (shape); begin shape. Destroy; shape:=nil; exit; end; end; listbox1. Selected [13] then begin//staticTextcheckbox1. Checked then begin (h, h14. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (staticText)) then begin:=TStaticText. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=14 ;. Height:=130 ;. Width:=80 ;. Name:= StaticText raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (staticText); begin staticText. Destroy; staticText:=nil; exit; end; end; listbox1. Selected [14] then begin//stringGridcheckbox1. Checked then begin (h, h15. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (stringGrid)) then begin:=TStringGrid. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y + 50 ;. Visible:=True ;:=15 ;. Height:=150 ;. Width:=200 ;. Name:= StringGrid raquo ;;. Col:=3 ;. Row:=2 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (stringGrid); begin stringGrid. Destroy; stringGrid:=nil; exit; end; end ;; TForm1ponentMouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer) ;:=True ;:=X ;:=Y; Sender. ClassType=TButton then begin colorbox1. Enabled:=false; last:=1; _Component:=Sender as TButton; end; Sender. ClassType=TEdit then begin colorbox1. Enabled:=true; last:=2; _Component:=Sender as TEdit; end; Sender. ClassType=TCheckBox then begin colorbox1. Enabled:=false; last:=3; _Component:=Sender as TCheckBox; end; Sender. ClassType=TRadioButton then begin colorbox1. Enabled:=false; last:=4; _Component:=Sender as TRadioButton; end; Sender. ClassType=TPanel then begin colorbox1. Enabled:=true; last:=5; _Component:=Sender as TPanel; end; Sender. ClassType=TProgressBar then begin colorbox1. Enabled:=false; last:=6; _Component:=Sender as TProgressBar; end; Sender. ClassType=TBitBtn then begin colorbox1. Enabled:=true; last:=7; _Component:=Sender as TBitBtn; end; Sender. ClassType=TLabel then begin colorbox1. Enabled:=true; last:=8; _Component:=Sender as TLabel; end; Sender. ClassType=TLabeledEdit then begin colorbox1. Enabled:=true; last:=9; _Component:=Sender as TLabeledEdit; end; Sender. ClassType=TGroupBox then begin colorbox1. Enabled:=false; last:=10; _Component:=Sender as TGroupBox; end; Sender. ClassType=TMemo then begin colorbox1. Enabled:=true; last:=11; _Component:=Sender as TMemo; end; Sender. ClassType=TSpeedButton then begin colorbox1. Enabled:=false; last:=12; _Component:=Sender as TSpeedButton; end; Sender. ClassType=TShape then begin colorbox1. Enabled:=false; last:=13; _Component:=Sender as TShape; end; Sender. ClassType=TStaticText then begin colorbox1. Enabled:=false; last:=14; _Component:=Sender as TStaticText; end; Sender. ClassType=TStringGrid then begin colorbox1. Enabled:=false; last:=15; _Component:=Sender as TStringGrid; end; (Selected_Component); Selected_Component do:=Rect (Left, Top, Left + Width, Top + Height) ;. DrawFocusRect (FocusRect) ;; TForm1ponentMouseMove (Sender: TObject; Shift: TShiftState; X ,: Integer); Dragg then. DrawFocusRect (FocusRect); FocusRect do:=(Selected_Component. Left + X) - XOffset ;:=(Selected_Component. Top + Y) - YOffset ;:=Selected_Component. Width + Left ;:=Selected_Component. Height + Top ;;. DrawFocusRect (FocusRect) ;. SimpleText:= x= + IntToStr ((Selected_Component. Left + X) - XOffset) +
y= + IntToStr ((Selected_Component. Top + Y) - YOffset) ;;; TForm1ponentMouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); Dragg then. DrawFocusRect (FocusRect);// Erase Focus Rect:=False; Selected_Component do:=(Left + X) - XOffset ;:=(Top + Y) - YOffset; Left lt; 120 then Left:=120; Left gt; 900-Width then Left:=900-Width; Top lt; 65 then Top:=65; Top gt; 440-Height - 20 then Top:=440-Height - 20 ;; (Selected_Component) ;;; TForm1. Button1Click (Sender: TObject); vari: integer; (Edit1. Text= ) or (Edit2. Text= ) or (Edit3. Text= ) or (Edit1. Text= laquo ; ) then begin showmessage ( ???????? ?????????! ); Exit; endbegin (not (TryStrToInt (Edit1. Text, vari))) or (not (TryStrToInt (Edit2. Text, vari))) or (not (TryStrToInt (Edit3. Text, vari))) or (not (TryStrToInt (Edit1. Text, vari))) then begin showmessage ( ??????? ????? ?????! ); Exit; end; _Component. Left:=StrToInt (Ed...
