: 15 ., 3 ..
Delphi.
. , . .
. 5
1.1. Delphi 6
2. Delphi 9
2.1. 1. 9
2.2. 2. 11
. 14
.. 15
: , , Delphi.
:
1. Delphi.
2. .
3. .
: 28.06.2016 17.07.2016 ..
Delphi
.
Delphi :
→ → Borland Delphi 7 → Delphi 7
Delphi 7 , . 1.1, 6 :
1. (Delphi 7 - Project 1);
2. (Object Inspector);
3. (Form 1);
4. (Unit1.pas);
5. (Object TreeView).
6.
. F12.
1.1. Delphi
. :
;
;
;
.
(Object Inspector) . : , , . . , , , , . ( ). Properties () Events (). Properties , Events . : , , . .; : , . .
|
|
|
(Object TreeView) , . . , , , , F12. . Delphi . Windows- . Windows - , , , . , .
: , , , .
, Delphi , Form1 ( , ), .
Delphi
1
2.1. 1
: SpeedButton, Edit, Label, ListBox.
: " " (ListBox) Edit. " " () (ListBox). " " (ListBox).
:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
ListBox1: TListBox;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text+' '+Edit2.Text);
Edit1.SetFocus;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
ListBox1.Items.Clear;
end; end.
2
. 2.2 2
: MainMenu, PopupMenu.
: .
:
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
F1: TMenuItem;
New1: TMenuItem;
Save1: TMenuItem;
Save2: TMenuItem;
Close1: TMenuItem;
Reopen1: TMenuItem;
Project11: TMenuItem;
Project21: TMenuItem;
Project31: TMenuItem;
Edit1: TMenuItem;
Edit2: TMenuItem;
Run1: TMenuItem;
Cut1: TMenuItem;
Copy1: TMenuItem;
Past1: TMenuItem;
Delete1: TMenuItem;
StepOver1: TMenuItem;
T1: TMenuItem;
procedure New1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure Save2Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure Project11Click(Sender: TObject);
procedure Project21Click(Sender: TObject);
procedure Project31Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.New1Click(Sender: TObject);
begin
ShowMessage('Bpa New');
end;
procedure TForm1.Save1Click(Sender: TObject);
begin
ShowMessage('Bpa Open');
end;
procedure TForm1.Save2Click(Sender: TObject);
begin
ShowMessage('Bpa Save');
end;
procedure TForm1.Close1Click(Sender: TObject);
begin
ShowMessage('Bpa Close');
end;
procedure TForm1.Project11Click(Sender: TObject);
begin
ShowMessage('Bpa Project1');
end;
procedure TForm1.Project21Click(Sender: TObject);
begin
ShowMessage('Bpa Project2');
end;
procedure TForm1.Project31Click(Sender: TObject);
begin
ShowMessage('Bpa Project3');
end;
end.
Delphi7.
, .
1. .. Delphi7. 2003 .
2. .. Delphi. 2015 .
