Главная » Delphi, Исходники, Калькулятор » Калькулятор с использованием OnMouseMove
Янв
17

Калькулятор с использованием OnMouseMove

Задание: Создать программу «Калькулятор». Я немного усовершенствовал создав дополнительное событие для кнопок (OnMouseMove). В общем получилось очень даже неплохо. Советую всем скачать, посмотреть!
Скриншот программы:

Калькулятор

Калькулятор


Исходник:

[sourcecode language=»delphi»]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, StdCtrls, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);





procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x1, x2, x3:integer;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
x3:=x1+x2;
Edit3.Text:= IntToStr(x3);
end;
procedure TForm1.Button2Click(Sender: TObject);
var x1, x2, x3:integer;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
x3:=x1-x2;
Edit3.Text:= IntToStr(x3);
end;
procedure TForm1.Button3Click(Sender: TObject);
var x1, x2, x3:integer;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
x3:=x1*x2;
Edit3.Text:= IntToStr(x3);
end;
procedure TForm1.Button4Click(Sender: TObject);
var x1, x2, x3:real;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
x3:=(x1/x2);
Edit3.Text:= FloatToStr(x3);
end;
procedure TForm1.Button5Click(Sender: TObject);
var x1:real;
begin
x1:=StrToInt(Edit1.Text);
Edit3.Text:= FloatToStr(sqrt(x1));
end;
procedure TForm1.Button6Click(Sender: TObject);
var x1:real;
begin
x1:=StrToInt(Edit1.Text);
Edit3.Text:= FloatToStr(sqr(x1));
end;
procedure TForm1.Button7Click(Sender: TObject);
var x1:real;
begin
x1:=StrToInt(Edit1.Text);
Edit3.Text:= FloatToStr(sin(x1));
end;
procedure TForm1.Button8Click(Sender: TObject);
var x1:real;
begin
x1:=StrToInt(Edit1.Text);
Edit3.Text:= FloatToStr(cos(x1));
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text:=»;
Edit2.Clear;
Edit3.Clear;
end;
procedure TForm1.Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Edit2.Visible:=False;
Label2.Visible:=False;
Label1.Caption:=’Введите число:';
end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Edit2.Visible:=True;
Label2.Visible:=True;
Label1.Caption:=’Первое число:';
end;
end.
[/sourcecode]

Ну и ссылочка на скачивание: [download id=»19″]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.