Реферат Розробка демонстраційного багатопотокового додатки з динамічною зміною властивостей вікна і компонент

ue ;:=2 ;. Height:=30 ;. Width:=60 ;. Name:= Edit raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (textBox); begin textBox. Destroy; textBox:=nil; exit; end; end; listbox1. Selected [2] then begin//CheckBoxcheckbox1. Checked then begin (h, h3. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (checkBox)) then begin:=TCheckBox. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=3 ;. Height:=30 ;. Width:=80 ;. Name:= CheckBox raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (checkBox); begin checkBox. Destroy; checkBox:=nil; exit; end; end; listbox1. Selected [3] then begin//RadioButtoncheckbox1. Checked then begin (h, h4. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (radio)) then begin:=TRadioButton. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=4 ;. Height:=30 ;. Width:=80 ;. Name:= RadioButton raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (radio); begin radio. Destroy; radio:=nil; exit; end; end; listbox1. Selected [4] then begin//Panelcheckbox1. Checked then begin (h, h5. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (panel)) then begin:=TPanel. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=5 ;. Height:=30 ;. Width:=80 ;. Name:= Panel raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (panel); begin panel. Destroy; panel:=nil; exit; end; end; listbox1. Selected [5] then begin//ProgressBarcheckbox1. Checked then begin (h, h6. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (progress)) then begin:=TProgressBar. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=6 ;. Height:=30 ;. Width:=80 ;. Name:= ProgressBar raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (progress); begin progress. Destroy; progress:=nil; exit; end; end; listbox1. Selected [6] then begin//BitBtncheckbox1. Checked then begin (h, h7. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (bitBtn)) then begin:=TBitBtn. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=7 ;. Height:=30 ;. Width:=80 ;. Name:= BitButton raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (bitBtn); begin bitBtn. Destroy; bitBtn:=nil; exit; end; end; listbox1. Selected [7] then begin//Labelcheckbox1. Checked then begin (h, h8. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (labelBox)) then begin:=TLabel. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=8 ;. Height:=130 ;. Width:=80 ;. Name:= Label raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (labelBox); begin labelBox. Destroy; labelBox:=nil; exit; end; end; listbox1. Selected [8] then begin//labeledEditcheckbox1. Checked then begin (h, h9. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (labeledEdit)) then begin:=TLabeledEdit. Create (Form1) ;. Parent:=Form1 ;. Left:=x + 60 ;. Top:=y ;. Visible:=True ;:=9 ;. Height:=30 ;. Width:=80 ;. Name:= LabeledEdit raquo ;;. EditLabel. Caption:= LabeledEdit raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (labeledEdit); begin labeledEdit. Destroy; labeledEdit:=nil; exit; end; end; listbox1. Selected [9] then begin//GroupBoxcheckbox1. Checked then begin (h, h10. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (groupBox)) then begin:=TGroupBox. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=10 ;. Height:=130 ;. Width:=80 ;. Name:= GroupBox raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (groupBox); begin groupBox. Destroy; groupBox:=nil; exit; end; end; listbox1. Selected [10] then begin//Memocheckbox1. Checked then begin (h, h11. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (memoBox)) then begin:=TMemo. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=11 ;. Height:=80 ;. Width:=80 ;. Name:= Memo raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (memoBox); begin memoBox. Destroy; memoBox:=nil; exit; end; end; listbox1. Selected [11] then begin//SpeedButtoncheckbox1. Checked then begin (h, h12. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (speedBtn)) then begin:=TSpeedButton. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=12 ;. Height:=30 ;. Width:=80 ;. Name:= SpeedButton raquo ;;. OnMouseDown:=Compo...