{@@オブジェクトの値を得るここから@@}
    case propTag of
        //*表示位置に関する設定
        //=X, e, X座標の指定,rw
            //-全て
        //=Y, e, Y座標の指定,rw
            //-全て
        //=W, e, オブジェクトの幅,rw
            //-全て
        //=H, e, オブジェクト高さ,rw
            //-全て
        //=幅, e, オブジェクトの幅,rw
            //-全て
        //=高さ, e, オブジェクトの高さ,rw
            //-全て
        //=サイズ, "(e,e,e,e)", "(X1,Y1,X2,Y2)で左上と右下の座標を指定して部品のサイズを指定する",rw
            //-全て
        //=位置, "(e,e)", "(X,Y)で、オブジェクトの左上座標を指定する",rw
            //-全て
        //=右側, "(e,e)", オブジェクトの右上座標, r
            //-全て
        //=下側, "(e,e)", オブジェクトの下側座標,r
            //-全て
        //=ポケット, s, 自由な文字列や数値を保存しておける領域,rw
            //-全て
        propW, propW2:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then noProperty ;
                if obj.oTypeTag = gForm then
                    Result := IntToStr(TForm(obj.obj).ClientWidth)
                else
                    Result := IntToStr(TControl(obj.obj).Width) ;
            end;
        propH, propH2:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then noProperty ;
                if obj.oTypeTag = gForm then
                    Result := IntToStr(TForm(obj.obj).ClientHeight)
                else
                    Result := IntToStr(TControl(obj.obj).Height) ;
            end;
        propX:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then noProperty ;
                Result := IntToStr(TControl(obj.obj).Left) ;
            end;
        propY:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then noProperty ;
                Result := IntToStr(TControl(obj.obj).Top) ;
            end;
        propXY: getLeftTop;
        propSize: getSize;
        propRightXY:
            begin
                ValueType := 's';
                if obj.oTypeTag = gMenu then noProperty ;
                con := TControl(obj.obj);
                Result := Format('(%d,%d)',[(con.Left + Trunc(con.Width + StrToIntDef(HiBase.GuiPartsSpace.value,8))),con.Top]);
            end;
        propBottomXY:
            begin
                ValueType := 's';
                if obj.oTypeTag = gMenu then noProperty ;
                con := TControl(obj.obj);
                Result := Format('(%d,%d)',[con.Left,(con.Top + Trunc(con.Height + StrToIntDef(HiBase.GuiPartsSpace.value,8)))]);
            end;
        propPocket:
            begin
                Result := obj.pocket;
            end;

        //=タイトル, s, フォームのタイトル,rw
        //-母艦,フォーム,ブラウザ
        propTitle:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gForm: Result := TForm(obj.obj).Caption ;
                    gBrowser: Result := TUIWebBrowser(obj.obj).LocationName;//Result := TUIWebBrowser(obj.obj).OleObject.Document.Title;
                else
                    Result := node.value;
                end;
            end;

        //=テキスト, s, オブジェクトのテキスト,rw
        //-母艦,ボタン,コンボ,リスト,メモ,エディタ,グリッド,ラベル,チェック,メニュー,フォーム,パネル,Tエディタ,ブラウザ,ラジオ,タブページ,リッチエディタ,ステータスバー
        propText:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gButton: if obj.obj.ClassType = TButton then Result := TButton(obj.obj).Caption else Result := TBitBtn(obj.obj).Caption ;
                    gCombo:Result := TComboBox(obj.obj).Text ;
                    gList:
                        begin
                            i := TListBox(obj.obj).ItemIndex ;
                            if i>=0 then
                            begin
                              if TListBox(obj.obj).MultiSelect then
                              begin
                                Result := '';
                                for j := 0 to TListBox(obj.obj).Count - 1 do
                                begin
                                  if TListBox(obj.obj).Selected[j] then
                                    Result := Result + TListBox(obj.obj).Items.Strings[j] + #13#10;
                                end;
                              end else
                              begin
                                Result := TListBox(obj.obj).Items.Strings[i];
                              end;
                            end else
                                Result := '';
                        end;
                    gRadio:
                        begin
                            i := TRadioGroup(obj.obj).ItemIndex ;
                            if i>=0 then
                                Result := TRadioGroup(obj.obj).Items.Strings[i]
                            else
                                Result := '';
                        end;
                    gMemo:Result := TMemoXP(obj.obj).Text ;
                    gRichEdit:Result := TRichEdit(obj.obj).Text ;
                    gEdit:Result := TEdit(obj.obj).Text ;
                    gStatusBar: Result := TStatusBar(obj.obj).SimpleText ;
                    gGrid:getGrid(TStringGrid(obj.obj), Result);
                    gLabel:Result := TLabel(obj.obj).Caption ;
                    gCheck:Result := TCheckBox(obj.obj).Caption ;
                    gMenu:Result := TMenuItem(obj.obj).Caption;
                    gForm: Result := TForm(obj.obj).Caption ;
                    gPanel:Result := TPanel(obj.obj).Caption ;
                    gTEditor: Result := TEditor(obj.obj).Lines.Text ;
                    gBrowser:
                      begin
                        Result := TUIWebBrowser(obj.obj).LocationURL;
                      end;
                    gTabPage:
                      begin
                        Result := '';
                        for i:=0 to TPageControl(obj.obj).PageCount -1 do
                        begin
                          Result := Result + TPageControl(obj.obj).Pages[i].Caption + #13#10;
                        end;
                      end;
                else
                    Result := node.value;
                end;
            end;
        //=名前, s, オブジェクトの名前,r
        //-全て
        propKeyName:
            begin
                Result := obj.name ;
            end;
        //=ファイルドロップ, ?(オン|オフ), ファイルドロップを許すかどうか選択,w
        //-全て
        propFileDrop :
            begin
                Result := '';
            end;
        //=種類, s, オブジェクトの種類, r
        //-全て
        propType:
            begin
                Result := guiName[ obj.oTypeTag ];
            end;
        //=ハンドル, e, オブジェクトのハンドルを得る,r
        //-全て
        propHandle:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gForm:  Result := IntToStr(TForm(obj.obj).Handle);
                gImage: Result := IntToStr( TImage(obj.obj).Canvas.Handle );
                else
                    begin
                    try
                        Result := IntToStr( TWinControl(obj.obj).Handle );
                    except
                        Result := '0';
                    end;
                    end;
                end;
            end;
        //*可視有効
        //=可視, ?(オン|オフ), オブジェクト表示(Visible)の可視の設定,rw
            //-全て
        //=有効, ?(オン|オフ), オブジェクト利用の有効(Enabled)の設定,rw
            //-全て
        //=ポップアップ, o,ポップアップメニューの指定,w
        //-ラベル,フォーム, 母艦, ボタン, リスト, コンボ, グリッド, パネル, タブページ, イメージ, ツリー, メモ, エディタ, Tエディタ
        propVisible:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then
                begin
                    if TMenuItem(obj.obj).Visible then
                        Result := '1'
                    else
                        Result := '0';
                end else
                begin
                    if TControl(obj.obj).Visible then
                        Result := '1'
                    else
                        Result := '0';
                end;
            end;
        propEnabled:
            begin
                try
                    ValueType := 'e';
                    if obj.oTypeTag = gMenu then
                    begin
                        if TMenuItem(obj.obj).Enabled then
                            Result := '1'
                        else
                            Result := '0';
                    end else
                    begin
                        if TControl(obj.obj).Enabled then
                            Result := '1'
                        else
                            Result := '0';
                    end;
                except
                    Result := '0';
                end;
            end;
        //*各オブジェクトごとの設定項目
        //=リサイズ,?(オン|オフ), フォームの大きさの変更を許すかどうか,rw
        //-フォーム,母艦
        propResize:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gForm then
                begin
                    if TForm(obj.obj).BorderStyle = bsSingle then Result := '0' else Result := '1';
                end else
                    Result := '0';
                getCanvasSetting ;
            end;
        //=アイテム, s, オブジェクトの選択肢項目を配列形式で得る,rw
        //-リスト, コンボ, グリッド,ラジオ, パネル, フォーム, タブページ, スクロール, 母艦, ツリー
        propItem:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gList:  Result := TListBox(obj.obj).Items.Text;
                    gCombo: Result := TComboBox(obj.obj).Items.Text;
                    gGrid:  Result := getGridText;
                    gRadio: Result := TRadioGroup(obj.obj).Items.Text ;
                    gPanel, gForm, gTabPage, gScroll: getChildItemControl;
                    gTree:  Result := getTreeView;
                    else
                        Result := '';
                end;
            end;
        //=編集,?(オン|オフ),エディタなどで編集を可能にするかどうかを設定,rw
        //-グリッド,エディタ,メモ,コンボ,ツリー,Tエディタ,リッチエディタ
        propCanEdit:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gGrid:
                        begin
                            Result := IntToStr(Ord(TStringGrid(obj.obj).EditorMode));
                        end;
                    gEdit:     Result := IntToStr(Ord(not TEdit(obj.obj).ReadOnly));
                    gTEditor:  Result := IntToStr(Ord(not TEditor(obj.obj).ReadOnly));
                    gRichEdit: Result := IntToStr(Ord(not TRichEdit(obj.obj).ReadOnly));
                    gMemo:     Result := IntToStr(Ord(not TMemoXP(obj.obj).ReadOnly));
                    gTree:     Result := IntToStr(Ord(not TTreeView(obj.obj).ReadOnly));
                    gCombo:
                        if TComboBox(obj.obj).Style = csDropDownList then
                            Result := '0'
                        else
                            Result := '1';
                    else
                        noProperty ;
                end;
            end;
        //=複数選択, ?(オン|オフ), リストで複数選択を許すかどうかを設定, rw
        //-リスト
        propMultiSelect:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gList: Result := IntToStr(Ord(TListBox(obj.obj).MultiSelect));
                end;
            end;
        //=レイアウト, s, レイアウトの自動整列(上|右|左|下|全体|なし), rw
        //-全て
        propAlign:
          begin
            try
              ValueType := 's';
              case TControl(obj.obj).Align of
                alNone:  Result := 'なし';
                alTop:   Result := '上';
                alRight: Result := '右';
                alLeft:  Result := '左';
                alBottom:Result := '下';
                alClient:Result := '全体';
              end;
            except
              Result := '';
            end;
          end;
        //=効果音, f, オブジェクトの効果音を得る,rw
        //-アニメ
        propEffect:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gAnime:  Result := TAnimeBox(obj.obj).WaveFile;
                    else
                        Result := '';
                end;
            end;
        //=繰り返し回数, e, アニメの繰り返し回数を得る,rw
        //-アニメ
        propRepeatTime:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gAnime:  Result := IntToStr(TAnimeBox(obj.obj).RepeatTime);
                end;
                if Trim(Result)='' then Result := '0';
            end;
        //=ボタン機能, ?(オン|オフ|2), アニメのボタン種類を設定する,rw
        //-アニメ
        propButton:
            begin
                case obj.oTypeTag of
                    gAnime:
                        begin
                            if(TAnimeBox(obj.obj).UseButton2=False)and(TAnimeBox(obj.obj).UseButton=True) then Result :='1'
                            else if(TAnimeBox(obj.obj).UseButton2=True)and(TAnimeBox(obj.obj).UseButton=False) then Result :='2'
                            else Result :='0';
                        end;
                    else
                        noProperty;
                end;
            end;
        //=値, e, オブジェクトの選択された値(インデックス)を得る,rw
        //-バー,リスト,コンボ,グリッド,チェック,メニュー,アニメ,ラジオ,タブページ,プログレスバー
        propValue:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gBar:   Result := IntToStr(TScrollBar(obj.obj).Position) ;
                    gProgBar:   Result := IntToStr(TProgressBar(obj.obj).Position) ;
                    gList:  Result := IntToStr(TListBox(obj.obj).ItemIndex);
                    gRadio: Result := IntToStr(TRadioGroup(obj.obj).ItemIndex);
                    gCombo: Result := IntToStr(TComboBox(obj.obj).ItemIndex);
                    gGrid:  Result := IntToStr(TStringGrid(obj.obj).Row);
                    gCheck:   if TCheckBox(obj.obj).Checked then Result := '1' else Result := '0';
                    gMenu:    if TMenuItem(obj.obj).Checked then Result := '1' else Result :='0';
                    gAnime:   Result := IntToStr(TAnimeBox(obj.obj).Interval);
                    gTabPage: Result := IntToStr(TPageControl(obj.obj).ActivePageIndex) ;
                else
                    Result := '0';
                end;
            end;
        //=ショートカットキー, s, メニューのショートカットキーを設定,rw
        //-メニュー
        propShortcut:
            begin
                ValueType := 's';
                if (obj.oTypeTag=gMenu) then
                begin
                    Result := ShortCutToText( TMenuItem( obj.obj ).ShortCut );
                end else
                    Result := '';
            end;
        //=画像, f, 画像ファイル名を得る,rw
        //-イメージ,アニメ,母艦,ボタン
        propImage:
            begin
                ValueType := 's';
                Result := node.value ;
            end;
        //=追加画像, f, アニメ部品にイメージを追加する,rw
        //-アニメ
        propAddImage:
            begin
                ValueType := 's';
                Result := node.value ;
            end;
        //=拡大機能, ?(はい|いいえ),画像の拡大機能を使うかどうかを指定,rw
        //-イメージ,アニメ,フォーム,母艦
        propStretch:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gImage: Result := IntToStr( Ord(TImage(obj.obj).Stretch = True) );
                    gAnime: Result := IntToStr( Ord(TAnimeBox(obj.obj).Stretch = True) );
                    gForm: Result := IntToStr( Ord(getformImageObject(obj.obj).Stretch = True) );
                end;
            end;
        //=IME, ?(IMEオン|IMEオフ|IMEひらがな|IMEカタカナ|IME半角カタカナ), IMEの状態を設定する,rw
        //-メモ,エディタ,コンボ,Tエディタ,リッチエディタ
        propIME:
            begin
                ValueType := 'e'; Result := '0';
                case obj.oTypeTag of
                gMemo:
                    begin
                        case TMemo(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                gEdit:
                    begin
                        case TEdit(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                gRichEdit:
                    begin
                        case TRichEdit(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                gTEditor:
                    begin
                        case TEditor(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                gCombo:
                    begin
                        case TComboBox(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                end;
            end;
        //=最大値, e, バーの最大値,rw
        //-バー,プログレスバー
        propMax:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gBar:     Result := IntToStr(TScrollBar(obj.obj).Max) ;
                gProgBar: Result := IntToStr(TProgressBar(obj.obj).Max) ;
                else Result := '0';
                end;
            end;
        //=最小値, e, バーの最小値,rw
        //-バー,プログレスバー
        propMin:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gBar:     Result := IntToStr(TScrollBar(obj.obj).Min) ;
                gProgBar: Result := IntToStr(TProgressBar(obj.obj).Min) ;
                else Result := '0';
                end;
            end;
        //=向き, ?(縦|横), バーの向きを設定,rw
        //-バー
        propMuki:
            begin
                ValueType := 's';
                if obj.oTypeTag <> gBar then noProperty;
                if TScrollBar(obj.obj).Kind = sbVertical then
                    Result := '縦'
                else
                    Result := '横' ;
            end;
        //=スクロールバー, ?(縦|横|両方|), メモのスクロールバーの向きを設定,rw
        //-メモ,リッチエディタ
        propScrBar:
            begin
                valueType := 's';
                if obj.oTypeTag = gMemo then
                begin
                    if TMemo(obj.obj).ScrollBars = ssVertical then Result := '縦'
                    else if TMemo(obj.obj).ScrollBars = ssHorizontal then Result := '横'
                    else if TMemo(obj.obj).ScrollBars = ssBoth then Result := '両方'
                    else Result :='';
                end else
                if obj.oTypeTag = gRichEdit then
                begin
                    if TRichEdit(obj.obj).ScrollBars = ssVertical then Result := '縦'
                    else if TRichEdit(obj.obj).ScrollBars = ssHorizontal then Result := '横'
                    else if TRichEdit(obj.obj).ScrollBars = ssBoth then Result := '両方'
                    else Result :='';
                end else
                    noProperty ;
            end;
        //=列, e, カーソルの列,rw
        //-メモ,グリッド,Tエディタ,リッチエディタ
        propCol:
            begin
                case obj.oTypeTag of
                    gMemo:  Result := IntToStr(TMemoXP(obj.obj).CaretPos.X);
                    gRichEdit:  Result := IntToStr(TRichEdit(obj.obj).CaretPos.X);
                    gGrid:  Result := IntToStr(TStringGrid(obj.obj).Col);
                    gTEditor: Result := IntToStr(TEditor(obj.obj).Col);
                    else noProperty;
                end;
            end;
        //=行, e, カーソルの行,rw
        //-メモ,グリッド,Tエディタ,リッチエディタ
        propRow:
            begin
                case obj.oTypeTag of
                    gMemo:  Result := IntToStr(TMemoXP(obj.obj).CaretPos.Y);
                    gRichEdit:  Result := IntToStr(TRichEdit(obj.obj).CaretPos.Y);
                    gGrid:  Result := IntToStr(TStringGrid(obj.obj).Row);
                    gTEditor: Result := IntToStr(TEditor(obj.obj).Row);
                    else noProperty;
                end;
            end;
        //=フォント書体, s, フォント名を得る,rw
        //-メモ,エディタ,リスト,コンボ,ラベル,グリッド,ボタン,チェック,リッチエディタ
        propFont:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                gMemo: Result := TMemo(obj.obj).Font.Name ;
                gEdit: Result := TEdit(obj.obj).Font.Name ;
                gRichEdit: Result := TRichEdit(obj.obj).Font.Name ;
                gList: Result := TListBox(obj.obj).Font.Name ;
                gCombo: Result := TComboBox(obj.obj).Font.Name ;
                gLabel: Result := TLabel(obj.obj).Font.Name ;
                gGrid: Result := TStringGrid(obj.obj).Font.Name ;
                gButton:
                  begin
                    if obj.obj.ClassType = TButton then Result := TButton(obj.obj).Font.Name
                                                   else Result := TBitBtn(obj.obj).Font.Name ;
                  end;
                gCheck: Result := TCheckBox(obj.obj).Font.Name ;
                else
                    Result := '';
                end;
            end;
        //=フォントサイズ, e, フォントサイズを得る,rw
        //-メモ,エディタ,リスト,コンボ,ラベル,グリッド,ボタン,チェック,リッチエディタ
        propFontSize:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gMemo: Result := IntToStr(TMemo(obj.obj).Font.Size) ;
                gEdit: Result := IntToStr(TEdit(obj.obj).Font.Size) ;
                gRichEdit: Result := IntToStr(TRichEdit(obj.obj).Font.Size) ;
                gList: Result := IntToStr(TListBox(obj.obj).Font.Size) ;
                gCombo: Result := IntToStr(TComboBox(obj.obj).Font.Size) ;
                gLabel: Result := IntToStr(TLabel(obj.obj).Font.Size) ;
                gGrid: Result := IntToStr(TStringGrid(obj.obj).Font.Size) ;
                gButton: if obj.obj.ClassType = TButton then Result := IntToStr(TButton(obj.obj).Font.Size) else Result := IntToStr(TBitBtn(obj.obj).Font.Size);
                gCheck: Result := IntToStr(TCheckBox(obj.obj).Font.Size) ;
                else
                    Result := '0';
                end;
            end;
        //=フォント色, c, フォント色を得る,rw
        //-メモ,エディタ,リスト,コンボ,ラベル,グリッド,ボタン,チェック,リッチエディタ
        propFontColor:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gMemo: Result := IntToStr(TMemo(obj.obj).Font.Color) ;
                gRichEdit: Result := IntToStr(TRichEdit(obj.obj).Font.Color) ;
                gEdit: Result := IntToStr(TEdit(obj.obj).Font.Color) ;
                gList: Result := IntToStr(TListBox(obj.obj).Font.Color) ;
                gCombo: Result := IntToStr(TComboBox(obj.obj).Font.Color) ;
                gLabel: Result := IntToStr(TLabel(obj.obj).Font.Color) ;
                gGrid: Result := IntToStr(TStringGrid(obj.obj).Font.Color) ;
                gButton: if obj.obj.ClassType = TButton then Result := IntToStr(TButton(obj.obj).Font.Color) else Result := IntToStr(TBitBtn(obj.obj).Font.Color) ;
                gCheck: Result := IntToStr(TCheckBox(obj.obj).Font.Color) ;
                else
                    Result := '0';
                end;
            end;
        //=選択文字列, s, エディタなどの選択文字列を得る,rw
        //-メモ,エディタ,リスト,コンボ,Tエディタ,ツリー,リッチエディタ
        propSelText:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gEdit: Result := TEditXP(obj.obj).SelText;
                    gMemo: Result := TMemoXP(obj.obj).SelText;
                    gRichEdit: Result := TRichEdit(obj.obj).SelText;
                    gTEditor: Result := TEditor(obj.obj).SelText;
                    gList:
                        begin
                            with TListBox(obj.obj) do begin
                                if ItemIndex >= 0 then
                                    Result := Items.Strings[TListBox(obj.obj).ItemIndex]
                                else
                                    Result := '';
                            end;
                        end;
                    gCombo: Result := TComboBox(obj.obj).SelText;
                    gTree:
                        begin
                          if TTreeView(obj.obj).Selected <> nil then
                            Result := TTreeView(obj.obj).Selected.Text
                          else
                            Result := '';
                        end;
                    else
                        Result := '';
                end;
            end;
        //=選択位置, e, エディタなどのカーソル位置を得る,rw
        //-エディタ,メモ,コンボ,Tエディタ,ツリー,リッチエディタ
        propSelStart:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gEdit: Result := IntToStr(TEdit(obj.obj).SelStart);
                    gMemo: Result := IntToStr(TMemoXP(obj.obj).SelStart);
                    gRichEdit: Result := IntToStr(TRichEdit(obj.obj).SelStart);
                    gTEditor: Result := IntToStr(TEditor(obj.obj).SelStart);
                    gCombo: Result := IntToStr(TComboBox(obj.obj).SelStart);
                    gTree:
                      begin
                        if TTreeView(obj.obj).Selected <> nil then
                        begin
                          Result := IntToStr(TTreeView(obj.obj).Selected.AbsoluteIndex);
                        end else
                          Result := '-1';
                      end;
                    else
                        Result := '0';
                end;
            end;
        //=選択文字数, e, エディタなどの選択文字数を得る,rw
        //-エディタ,メモ,コンボ,Tエディタ,リッチエディタ
        propSelLength:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gEdit: Result := IntToStr(TEdit(obj.obj).SelLength);
                    gMemo: Result := IntToStr(TMemoXP(obj.obj).SelLength);
                    gRichEdit: Result := IntToStr(TRichEdit(obj.obj).SelLength);
                    gTEditor: Result := IntToStr(TEditor(obj.obj).SelLength);
                    gCombo: Result := IntToStr(TComboBox(obj.obj).SelLength);
                    else
                        Result :='0';
                end;
            end;
        //=背景色, c, オブジェクトの背景色を得る,rw
        //-母艦, メモ,エディタ,リスト,コンボ,ラベル,フォーム,Tエディタ,グリッド,チェック,アニメ,パネル,スクロール,リッチエディタ,トラック
        propBackgroud:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gMemo:     Result := IntToStr(TMemoXP(obj.obj).Color) ;
                    gRichEdit: Result := IntToStr(TRichEdit(obj.obj).Color) ;
                    gEdit:     Result := IntToStr(TEdit(obj.obj).Color) ;
                    gList:   Result := IntToStr(TListBox(obj.obj).Color) ;
                    gCombo:  Result := IntToStr(TComboBox(obj.obj).Color) ;
                    gLabel:  Result := IntToStr(TLabel(obj.obj).Color) ;
                    gForm:   Result := IntToStr(TForm(obj.obj).Color) ;
                    gTEditor:Result := IntToStr(TEditor(obj.obj).Color) ;
                    gGrid:   Result := IntToStr(TStringGrid(obj.obj).Color) ;
                    gCheck:  Result := IntToStr(TCheckBox(obj.obj).Color) ;
                    gAnime:  Result := IntToStr(TAnimeBox(obj.obj).Color) ;
                    gPanel:  Result := IntToStr(TPanel(obj.obj).Color);
                    gScroll: Result := IntToStr(TScrollBox(obj.obj).Color);
                    gTrack:  Result := IntToStr(TTrackBox(obj.obj).TrackColor);
                    else
                        Result := '0';
                end;
            end;
        //=透過処理, ?(オン|オフ), オブジェクトの透過処理のオンオフ,rw
        //-ラベル,イメージ,アニメ,フォーム,母艦
        propTransparent:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gLabel: Result := IntToStr(Ord(TLabel(obj.obj).Transparent = True)) ;
                gImage: Result := IntToStr(Ord(TImage(obj.obj).Transparent = True)) ;
                gAnime: Result := IntToStr(Ord(TAnimeBox(obj.obj).Transparent = True)) ;
                gForm: Result := IntToStr(Ord(getformImageObject(obj.obj).Transparent = True)) ;
                else
                    Result := '0';
                end;
            end;
        //=URL, s, ブラウザで、表示URLを指定,rw
        //-ブラウザ
        propURL:
            begin
                ValueType := 's';
                if obj.oTypeTag = gBrowser then
                begin
                    Result := TUIWebBrowser(obj.obj).LocationURL ;
                end else
                begin
                    Result := '';
                end;
            end;
        //=スタイル, ?(枠なし|枠固定|枠可変|ダイアログスタイル), フォームのスタイルを設定する,rw
        //-フォーム,母艦,パネル,エディタ,メモ
        propStyle:
            begin
                ValueType := 'e';

                case obj.oTypeTag of
                gForm:  Result := IntToStr( Ord(TForm(obj.obj).BorderStyle) );
                gPanel: Result := IntToStr( Ord(TPanel(obj.obj).BevelOuter) );
                gEdit:  Result := IntToStr( Ord(TEdit(obj.obj).BorderStyle) );
                gMemo:  Result := IntToStr( Ord(TMemo(obj.obj).BorderStyle) );
                else
                  noProperty ;
                end;


                if (obj.oTypeTag = gForm) then
                    Result := IntToStr( Ord(TForm(obj.obj).BorderStyle) )
                else
                    Result :='0';
            end;
        //=ヒント, s, ヒント（ツールチップ）を表示する, rw
        //-全て
        propHint:
            begin
                ValueType := 's';
                try
                  Result := TControl(obj.obj).Hint;
                except
                  Result := '';
                end;
            end;
        //=折り返し, e, メモやタブページの折り返しをするかどうか, rw
        //-メモ,Tエディター,リッチエディタ,タブページ
        propOrikaesi:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gMemo    : if TMemo(obj.obj).ScrollBars = ssVertical then Result :='1' else Result := '0';
                    gTEditor : if TEditor(obj.obj).ScrollBars = ssVertical then Result :='1' else Result := '0';
                    gRichEdit: if TRichEdit(obj.obj).ScrollBars = ssVertical then Result :='1' else Result := '0';
                    gTabPage : Result := IntToStr(ord(TPageControl(obj.obj).MultiLine));
                    else noProperty;
                end;
            end;

        //*イベント
        //=イベント, l, 標準のイベントを呼び出す,w
        //-全て
        propEvent:
            begin
                CallEvent;
            end;
        {備考：標準のイベント以外のイベントは、イベントの関係が複雑なので、呼べない仕様とする}

        //=クリックした時, l, クリックした時のイベント,w
        //-ボタン,エディタ,イメージ,コンボ,リスト,メモ,グリッド,ラベル,パネル,チェック,トラック,アニメ,フォーム,母艦,Tエディタ,ラジオ,ステータスバー
        //=ダブルクリックした時, l, ダブルクリックした時のイベント,w
        //-エディタ,イメージ,コンボ,リスト,メモ,グリッド,ラベル,パネル,トラック,アニメ,フォーム,母艦,Tエディタ,ステータスバー
        //=マウス押した時, l, マウスボタンを押した時のイベント,w
        //-ボタン,エディタ,イメージ,リスト,メモ,グリッド,ラベル,パネル,トラック,アニメ,フォーム,母艦,Tエディタ,ツリー,プログレスバー,ステータスバー
        //=マウス動かした時, l, マウスを動くかした時のイベント,w
        //-ボタン,エディタ,イメージ,リスト,メモ,グリッド,ラベル,パネル,チェック,トラック,アニメ,フォーム,母艦,Tエディタ,ツリー,プログレスバー,ステータスバー
        //=マウス離した時, l, マウスボタンを離した時のイベント,w
        //-ボタン,エディタ,イメージ,リスト,メモ,グリッド,ラベル,パネル,チェック,トラック,アニメ,フォーム,母艦,Tエディタ,ツリー,プログレスバー,ステータスバー
        //=キー押した時, l, キーを押した時のイベント,w
        //-エディタ,イメージ,リスト,メモ,グリッド,チェック,フォーム,母艦,Tエディタ
        //=キー離した時, l, キーを離した時のイベント,w
        //-エディタ,リスト,メモ,グリッド,チェック,フォーム,母艦,Tエディタ
        //=変更した時, l, 部品の内容が変更された時のイベント,w
        //-エディタ,バー,コンボ,メモ,トラック,フォーム,母艦,Tエディタ,ブラウザ
        //=ファイルドロップした時, l, ファイルがドロップされた時のイベント,w
        //-ボタン,エディタ,イメージ,コンボ,メモ,グリッド,ラベル,パネル,チェック,トラック,アニメ,フォーム,母艦,Tエディタ
        //=閉じた時, l, フォームなどを閉じた時にイベントを呼び出す, w
        //-フォーム,母艦
        //=開いた時, l, フォーム、ブラウザなどを開いた時にイベントを呼び出す, w
        //-フォーム,ブラウザ
        //=フォーカス得た時, l, フォーカスを得た時に呼ばれるイベント,w
        //-ブラウザ,Tエディタ,ボタン,エディタ,リスト,ツリー,バー,コンボ,ラジオ,メモ,リッチエディタ,グリッド,パネル,チェック,タブページ
        //=フォーカス外れた時, l, フォーカスが外れた時に呼ばれるイベント,w
        //-ブラウザ,Tエディタ,ボタン,エディタ,リスト,ツリー,バー,コンボ,ラジオ,メモ,リッチエディタ,グリッド,パネル,チェック,タブページ
        {@@オブジェクトの値を得るここまで@@}