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

nder: TObject); _ all ;; TForm1. BitBtn2Click (Sender: TObject); f: textfile; tmp: integer; sig: TColor; _all; (f, {GetCurrentDir +} save. txt ); (f); (f, tmp); tmp lt; gt; 0 then begin//buttonNOT (Assigned (button)) then begin:= TButton. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= Button raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp;

//SetProperties (button) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//textBoxNOT (Assigned (textBox)) then begin:=TEdit. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= TextBox raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp; (f, sig) ;. Font. Color:=sig;

//SetProperties (textBox) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//checkBoxNOT (Assigned (checkBox)) then begin:=TCheckBox. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= CheckBox raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp;

//SetProperties (checkBox) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//radioNOT (Assigned (radio)) then begin:=TRadioButton. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= RadioButton raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp;

//SetProperties (radio) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//panelNOT (Assigned (panel)) then begin:=TPanel. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= Panel raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp; (f, sig) ;. Font. Color:=sig;

//SetProperties (panel) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//progressNOT (Assigned (progress)) then begin:=TProgressBar. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= ProgressBar raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp;

//SetProperties (progress) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//bitBtnNOT (Assigned (bitBtn)) then begin:=TBitBtn. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= BitBtn raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp; (f, sig) ;. Font. Color:=sig;

//SetProperties (bitBtn) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//labelBoxNOT (Assigned (labelBox)) then begin:=TLabel. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= Label raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp; (f, sig) ;. Font. Color:=sig;

//SetProperties (labelBox) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//labeledEditNOT (Assigned (labeledEdit)) then begin:=TLabeledEdit. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= LabeledEdit raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp; (f, sig) ;. Font. Color:=sig;

//SetProperties (labeledEdit) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//groupBoxNOT (Assigned (groupBox)) then begin:=TGroupBox. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= GroupBox raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp;

//SetProperties (groupBox) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then begin//memoBoxNOT (Assigned (memoBox)) then begin:=TMemo. Create (Form1) ;. Parent:=Form1 ;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp ;. Name:= Memo raquo ;;;. Top:=tmp; (f, tmp) ;. Left:=tmp; (f, tmp) ;. Height:=tmp; (f, tmp) ;. Width:=tmp; (f, sig) ;. Font. Color:=sig;

//SetProperties (memoBox) ;. Visible:=true ;; (f, tmp); tmp lt; gt; 0 then...