uSpravEdit формасының программалық коды
unit uSpravEdit;
…
var
frmSpravEdit: TfrmSpravEdit;
implementation
{$R *.dfm}
procedure TfrmSpravEdit.btnCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmSpravEdit.chboxEditClick(Sender: TObject);
begin
if not chboxEdit.Checked then
frmSpravEdit.Width:=327
else
frmSpravEdit.Width:=757;
end;
procedure TfrmSpravEdit.btnAddClick(Sender: TObject);
begin
gridSpravView.DataSource.DataSet.Append;
edtRName.SetFocus;
end;
procedure TfrmSpravEdit.btnDelClick(Sender: TObject);
begin
gridSpravView.DataSource.DataSet.Edit;
gridSpravView.DataSource.DataSet.Delete;
end;
procedure TfrmSpravEdit.edtRNameExit(Sender: TObject);
begin
gridSpravView.DataSource.DataSet.Edit;
gridSpravView.DataSource.DataSet.Post;
end;
procedure TfrmSpravEdit.FormCreate(Sender: TObject);
begin
Width:=327;
end;
end.
Достарыңызбен бөлісу: | 
