第一天学习DELPHI 交作业 跟着视频写了个苍井空计算器哈！

命苦不能怪ZF

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7. Dialogs, StdCtrls, jpeg, mmsystem, ExtCtrls;
   
8. 
   
9. type
   
10. TForm1 = class(TForm)
    
11. Label1: TLabel;
    
12. Label2: TLabel;
    
13. Button1: TButton;
    
14. Button2: TButton;
    
15. Button3: TButton;
    
16. Button4: TButton;
    
17. Edit1: TEdit;
    
18. Edit2: TEdit;
    
19. Edit3: TEdit;
    
20. Edit4: TEdit;
    
21. Edit5: TEdit;
    
22. Label3: TLabel;
    
23. Image1: TImage;
    
24. Label4: TLabel;
    
25. Label5: TLabel;
    
26. Label6: TLabel;
    
27. Label7: TLabel;
    
28. Edit7: TEdit;
    
29. Button6: TButton;
    
30. Button5: TButton;
    
31. Edit6: TEdit;
    
32. Edit8: TEdit;
    
33. procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
    
34. procedure Edit1Click(Sender: TObject);
    
35. procedure Edit2Click(Sender: TObject);
    
36. procedure Edit3Click(Sender: TObject);
    
37. procedure Button1Click(Sender: TObject);
    
38. procedure Button2Click(Sender: TObject);
    
39. procedure Button4Click(Sender: TObject);
    
40. procedure Button3Click(Sender: TObject);
    
41. procedure Button6Click(Sender: TObject);
    
42. procedure Button5Click(Sender: TObject);
    
43. 
    
44. 
    
45. private
    
46. { Private declarations }
    
47. public
    
48. { Public declarations }
    
49. end;
    
50. 
    
51. var
    
52. Form1: TForm1;
    
53. 
    
54. implementation
    
55. 
    
56. {$R *.dfm}
    
57. 
    
58. procedure Tform1.WMNCHitTest(var M: TWMNCHitTest);
    
59. begin
    
60. inherited; { call the inherited message handler }
    
61. if M.Result = htClient then { is the click in the client area? }
    
62. M.Result := htCaption; { if so, make Windows think it's }
    
63. { on the caption bar. }
    
64. end;
    
65. 
    
66. 
    
67. 
    
68. 
    
69. 
    
70. procedure TForm1.Edit1Click(Sender: TObject);
    
71. begin
    
72. Edit1.Text:='';
    
73. 
    
74. 
    
75. end;
    
76. 
    
77. procedure TForm1.Edit2Click(Sender: TObject);
    
78. begin
    
79. Edit2.Text:='';
    
80. end;
    
81. 
    
82. procedure TForm1.Edit3Click(Sender: TObject);
    
83. begin
    
84. Edit3.Text:='';
    
85. end;
    
86. 
    
87. procedure TForm1.Button1Click(Sender: TObject);
    
88. begin
    
89. Label4.Caption:='+';
    
90. Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)+ StrToFloat(Edit2.Text) );
    
91. end;
    
92. 
    
93. procedure TForm1.Button2Click(Sender: TObject);
    
94. begin
    
95. Label4.Caption:='-';
    
96. Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)- StrToFloat(Edit2.Text));
    
97. end;
    
98. 
    
99. procedure TForm1.Button4Click(Sender: TObject);
    
100. begin
     
101. Label4.Caption:='×';
     
102. Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text));
     
103. end;
     
104. 
     
105. procedure TForm1.Button3Click(Sender: TObject);
     
106. begin
     
107. Label4.Caption:='÷';
     
108. Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text)/ StrToFloat(Edit2.Text));
     
109. end;
     
110. 
     
111. 
     
112. 
     
113. procedure TForm1.Button6Click(Sender: TObject);
     
114. begin
     
115. Close
     
116. end;
     
117. 
     
118. procedure TForm1.Button5Click(Sender: TObject);
     
119. begin
     
120. { Edit6.Text:=((Edit4.Text) + (Edit5.Text) + (Edit7.Text)) ; }
     
121. MCISendString('OPEN C:\WINDOWS\Media\flourish.mid TYPE SEQUENCER ALIAS NN', '', 0, 0);
     
122. MCISendString('PLAY NN FROM 0', '', 0, 0);
     
123. MCISendString('CLOSE ANIMATION', '', 0, 0);
     
124. ShowMessage( (Edit8.Text)+(Edit4.Text) + (Edit5.Text) + (Edit7.Text));
     
125. end;
     
126. 
     
127. end.

复制代码

我了个不能上传图片新人啊悲催

                               
登录/注册后可看大图

Project1.rar (227.43 KB, 下载次数: 16)

2012-12-27 07:32 上传

点击文件名下载附件

s0512

不错。。。。继续努力

cyrs

学习学习