09.03.2011, 09:32
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
при добавлении записи в TDBGrid выводится вопрос "Отменить добавление?":
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure Table1AfterInsert(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.AfterInsert:=Table1AfterInsert;
end;
procedure TForm1.Table1AfterInsert(DataSet: TDataSet);
begin
if MessageBox(Handle, 'Отменить добавление?', 'Вопрос',
MB_OKCANCEL or MB_ICONQUESTION)=IDOK then Table1.Cancel;
end;
end.
__________________
Пишу программы за еду.
__________________
|