User is now able to input answers in gameplayform.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
denniscuflat
2011-09-14 01:24:06 +00:00
parent 832ed6e0d5
commit b0272c01fd
4 changed files with 86 additions and 60 deletions

View File

@ -76,8 +76,8 @@ end;
procedure TForm1.btnLoadClick(Sender: TObject); procedure TForm1.btnLoadClick(Sender: TObject);
begin begin
Hide;
Form2.Show; Form2.Show;
Hide;
end; end;

View File

@ -23,6 +23,7 @@ object Form2: TForm2
Height = 23 Height = 23
Top = 392 Top = 392
Width = 514 Width = 514
OnKeyPress = Edit1KeyPress
TabOrder = 1 TabOrder = 1
end end
object Image1: TImage object Image1: TImage
@ -1546,4 +1547,16 @@ object Form2: TForm2
ReadOnly = True ReadOnly = True
TabOrder = 4 TabOrder = 4
end end
object Memo1: TMemo
Left = 383
Height = 181
Top = 76
Width = 130
Lines.Strings = (
'[TESTE]'
'Palavras escritas:'
''
)
TabOrder = 5
end
end end

View File

@ -22,7 +22,9 @@ type
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label3: TLabel; Label3: TLabel;
Memo1: TMemo;
procedure btnExitClick(Sender: TObject); procedure btnExitClick(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: char);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
{ private declarations } { private declarations }
@ -51,10 +53,20 @@ begin
end; end;
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: char);
begin
if Key = #13 then
begin
Form2.Memo1.Lines.Add(Edit1.Text);
Form2.Edit1.Clear;
end;
end;
procedure TForm2.FormCreate(Sender: TObject); procedure TForm2.FormCreate(Sender: TObject);
begin begin
end; end;
end. end.

View File

@ -39,7 +39,7 @@
<Filename Value="tappytux.lpr"/> <Filename Value="tappytux.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappytux"/> <UnitName Value="tappytux"/>
<UsageCount Value="34"/> <UsageCount Value="35"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
@ -50,10 +50,11 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="96"/> <TopLine Value="68"/>
<CursorPos X="70" Y="97"/> <CursorPos X="16" Y="85"/>
<UsageCount Value="34"/> <UsageCount Value="35"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
@ -63,9 +64,9 @@
<UnitName Value="gameplayform"/> <UnitName Value="gameplayform"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="28"/> <TopLine Value="40"/>
<CursorPos X="83" Y="42"/> <CursorPos X="48" Y="60"/>
<UsageCount Value="34"/> <UsageCount Value="35"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit2> </Unit2>
@ -77,7 +78,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="21" Y="24"/> <CursorPos X="21" Y="24"/>
<UsageCount Value="28"/> <UsageCount Value="29"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
@ -86,9 +87,9 @@
<UnitName Value="tappydrawer"/> <UnitName Value="tappydrawer"/>
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="67"/> <TopLine Value="1"/>
<CursorPos X="70" Y="291"/> <CursorPos X="70" Y="291"/>
<UsageCount Value="28"/> <UsageCount Value="29"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
@ -99,7 +100,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="35" Y="72"/> <CursorPos X="35" Y="72"/>
<UsageCount Value="28"/> <UsageCount Value="29"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
@ -108,9 +109,9 @@
<UnitName Value="mod_tappywords"/> <UnitName Value="mod_tappywords"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="12"/>
<CursorPos X="1" Y="15"/> <CursorPos X="1" Y="15"/>
<UsageCount Value="28"/> <UsageCount Value="29"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
@ -121,7 +122,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="30" Y="70"/> <CursorPos X="30" Y="70"/>
<UsageCount Value="28"/> <UsageCount Value="29"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
@ -132,7 +133,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="6" Y="39"/> <CursorPos X="6" Y="39"/>
<UsageCount Value="27"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
@ -145,124 +146,124 @@
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="53" Column="82" TopLine="53"/> <Caret Line="23" Column="20" TopLine="4"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="92" Column="6" TopLine="92"/> <Caret Line="48" Column="41" TopLine="21"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="77" Column="3" TopLine="77"/> <Caret Line="105" Column="52" TopLine="69"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="104" Column="3" TopLine="104"/> <Caret Line="108" Column="38" TopLine="96"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="78" Column="3" TopLine="60"/> <Caret Line="23" Column="28" TopLine="9"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="18" Column="14" TopLine="1"/> <Caret Line="47" Column="40" TopLine="23"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="23" Column="14" TopLine="1"/> <Caret Line="30" Column="35" TopLine="26"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="21" Column="14" TopLine="6"/> <Caret Line="32" Column="35" TopLine="28"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="35" Column="8" TopLine="8"/> <Caret Line="31" Column="35" TopLine="27"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="8" Column="77" TopLine="1"/> <Caret Line="50" Column="1" TopLine="22"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="9" Column="3" TopLine="1"/> <Caret Line="51" Column="1" TopLine="23"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="98" Column="19" TopLine="71"/> <Caret Line="52" Column="1" TopLine="24"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="96" Column="6" TopLine="73"/> <Caret Line="53" Column="1" TopLine="25"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="29" Column="7" TopLine="10"/> <Caret Line="54" Column="1" TopLine="26"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="35" Column="79" TopLine="21"/> <Caret Line="55" Column="1" TopLine="27"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="23" Column="20" TopLine="4"/> <Caret Line="32" Column="3" TopLine="28"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="48" Column="41" TopLine="21"/> <Caret Line="34" Column="3" TopLine="30"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="105" Column="52" TopLine="69"/> <Caret Line="58" Column="26" TopLine="35"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="108" Column="38" TopLine="96"/> <Caret Line="51" Column="41" TopLine="35"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="23" Column="28" TopLine="9"/> <Caret Line="45" Column="50" TopLine="31"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="47" Column="40" TopLine="23"/> <Caret Line="75" Column="3" TopLine="43"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="30" Column="35" TopLine="26"/> <Caret Line="56" Column="5" TopLine="33"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="32" Column="35" TopLine="28"/> <Caret Line="28" Column="43" TopLine="23"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="31" Column="35" TopLine="27"/> <Caret Line="82" Column="45" TopLine="66"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="50" Column="1" TopLine="22"/> <Caret Line="80" Column="23" TopLine="64"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="51" Column="1" TopLine="23"/> <Caret Line="82" Column="40" TopLine="64"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="52" Column="1" TopLine="24"/> <Caret Line="85" Column="52" TopLine="65"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="53" Column="1" TopLine="25"/> <Caret Line="80" Column="26" TopLine="64"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="54" Column="1" TopLine="26"/> <Caret Line="85" Column="42" TopLine="64"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="55" Column="1" TopLine="27"/> <Caret Line="80" Column="41" TopLine="64"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>