7 Электрондық оқулық туралы түсінік



бет17/18
Дата22.04.2022
өлшемі7,09 Mb.
#140441
түріОқулық
1   ...   10   11   12   13   14   15   16   17   18
Байланысты:
Дип.-Delphi-ортасында-МФТ-пәні-бойынша-электрондық-оқулық-құру
ТАПСЫРМАЛАР, 09K=40;“0= 4Щ@V;V @5 0@0BB0@“0 4Щ@VE0=0VHV;V 10›K;0C 6Ї@3V7C ›0“840;0@K
unit Unit3
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAuthor = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Comments: TLabel;
OKButton: TButton;
procedure OKButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Author: TAuthor;
implementation
{$R *.dfm}
procedure TAuthor.OKButtonClick(Sender: TObject);
begin
close;
end;
end.


unit Unit4
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
OKButton: TButton;
Label1: TLabel;
Memo1: TMemo;
procedure OKButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
close;
end;
end.


unit Unit5
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls;
type
TGET = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
Image2: TImage;
Label1: TLabel;
Label2: TLabel;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
GET: TGET;
implementation
{$R *.dfm}
procedure TGET.SpeedButton1Click(Sender: TObject);
begin
close;
end;
end.


Достарыңызбен бөлісу:
1   ...   10   11   12   13   14   15   16   17   18




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет