Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
86
Добавлен:
06.02.2015
Размер:
655 б
Скачать
unit UnitTeam;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, jpeg, StdCtrls;

type
TFormTeam = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Image1: TImage;
Image2: TImage;
// procedure Button1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormTeam: TFormTeam;

implementation

{$R *.dfm}
Uses UnitDModul;

procedure TFormTeam.Image2Click(Sender: TObject);
begin
close
end;

end.
Соседние файлы в папке База данных(Стрельников)
  • #
    06.02.2015355 б86UnitPoisk.~dfm
  • #
    06.02.2015326 б86UnitPoisk.~pas
  • #
    06.02.20154.04 Кб86UnitTeam.dcu
  • #
    06.02.201551 б86UnitTeam.ddp
  • #
    06.02.2015138.38 Кб86UnitTeam.dfm
  • #
    06.02.2015655 б86UnitTeam.pas
  • #
    06.02.201551 б87UnitTeam.~ddp
  • #
    06.02.2015137.05 Кб86UnitTeam.~dfm
  • #
    06.02.2015655 б86UnitTeam.~pas
  • #
    06.02.20153.76 Кб86UnitTitul.dcu
  • #
    06.02.2015455.95 Кб86UnitTitul.dfm