メッセージで対処を促す もうやけっぱち

diff --git a/Unit1.dfm b/Unit1.dfm
index 0add4aa..b62651e 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -145,7 +145,8 @@ object Form1: TForm1
     TabOrder = 4
     Tabs.Strings = (
       #12504#12523#12503
-      #12496#12540#12472#12519#12531#24773#22577)
+      #12496#12540#12472#12519#12531#24773#22577
+      #12498#12531#12488)
     TabIndex = 0
     Visible = False
     OnChange = TabControl1Change
@@ -188,12 +189,23 @@ object Form1: TForm1
       Visible = False
       WordWrap = False
     end
+    object Memo5: TMemo
+      Left = 600
+      Top = 24
+      Width = 185
+      Height = 89
+      Lines.Strings = (
+        'JSONObject'#12434#12493#12473#12488#12377#12427#38555#12395#12399#37197#21015#20869#12395#20837#12428#12390#12367#12384#12373#12356#12290)
+      TabOrder = 3
+      Visible = False
+      WordWrap = False
+    end
   end
   object ImageList1: TImageList
     Left = 200
     Top = 88
     Bitmap = {
-      494C010104000800400010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010104000800480010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000002000000001002000000000000020
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000

diff --git a/Unit1.pas b/Unit1.pas
index 1ed57e8..2092920 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -57,6 +57,7 @@ type
     ToolButton8: TToolButton;
     ToolButton9: TToolButton;
     ToolButton10: TToolButton;
+    Memo5: TMemo;
     procedure ToolButton2Click(Sender: TObject);
     procedure ToolButton5Click(Sender: TObject);
     procedure TabControl1Change(Sender: TObject);
@@ -120,6 +121,9 @@ begin
     begin
       TreeView1.Items.AddChild(item, 'error');
       Showmessage('\93à\95\94\83G\83\89\81[\82É\82æ\82è\92\86\92f\82µ\82Ü\82µ\82½');
+      TabControl1.TabIndex:=2;
+      TabControl1Change(nil);
+      TabControl1.Show;
       Exit;
     end
     else
@@ -154,10 +158,14 @@ end;
 
 procedure TForm1.TabControl1Change(Sender: TObject);
 begin
-  if TabControl1.TabIndex = 0 then
-    Memo2.Text := Memo3.Text
-  else
+  case TabControl1.TabIndex of
+  0:
+    Memo2.Text := Memo3.Text;
+  1:
     Memo2.Text := Memo4.Text;
+  2:
+    Memo2.Text:=Memo5.Text;
+  end;
 end;
 
 procedure TForm1.ToolButton2Click(Sender: TObject);