Основы построения и функционирования интеллектуальных информационных систем. Былкин В.Д - 177 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

177
Продолжение прил.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus;
type Tdlg = class(TForm)
lab: TLabel;
PopupMenul: TPopupMenu;
Radiol: TRadioButton;
Radio2: TRadioButton;
Radio3: TRadioButton;
ok: TButton;
Radio4: TRadioButton;
procedure okClick(Sender: TObject);
private
{ Private declarations } public
{ Public declarations } end;
var
dig:
Tdlg;
implementation
{$R *.DFM}
procedure Tdlg.okClick(Sender: TObject);
begin
dig.
Close;
end;
end.
                                                                        Продолжение прил.
 unit Unit1;


interface



uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus;
type Tdlg = class(TForm)
        lab: TLabel;
        PopupMenul: TPopupMenu;
        Radiol: TRadioButton;
        Radio2: TRadioButton;
        Radio3: TRadioButton;
        ok: TButton;
        Radio4: TRadioButton;
        procedure okClick(Sender: TObject);
        private
        { Private declarations } public
        { Public declarations } end;
var
dig:
   Tdlg;
implementation
{$R *.DFM}
procedure Tdlg.okClick(Sender: TObject);
begin
dig.
Close;
 end;
end.




                                                    177

Страницы