Советы по Delphi. Версия 1.4.3 от 1.1.2001

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls;

type TMyNavigator = class(TDBNavigator)

public

 procedure EnableButton(Btn : TNavigateBtn);

 procedure DisableButton(Btn : TNavigateBtn);

end;

procedure Register;

implementation

procedure TMyNavigator.EnableButton(Btn : TNavigateBtn);

begin

 Buttons[Btn].Enabled := True;

end;

procedure TMyNavigator.DisableButton(Btn : TNavigateBtn);

begin

 Buttons[Btn].Enabled := False;

end;

procedure Register;

begin

 RegisterComponents('Samples', [TMyNavigator]);

end;

end. 

Работа в коде с кнопками DBNavigator

Delphi 1 

Я думаю вам поможет следующий пример (взят из электронной справки по DELPHI), показывающий код нажатой кнопки. Я видел пару вопросов о том, как изменять кнопки навигатора в зависимости от состояния редактируемой вами записи. Если вам необходимо подтверждение действий пользователя, то необходимо каким-то образом организовать дополнительный перехватчик. Как это сделать, я, честно говоря, еще не думал.

Прежде, чем вы сделаете любой постинг или изменение данных, убедитесь, что таблица находится в режиме редактирования. Посмотрите описание свойства state в электронной справке по DELPHI. Там подробно рассказано как работать с ним.

Следующий код определяет нажатую кнопку навигатора и выводит сообщение с ее именем.

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

var BtnName: string;

begin

 case Button of

 nbFirst  : BtnName := 'nbFirst';

 nbPrior  : BtnName := 'nbPrior';

 nbNext   : BtnName := 'nbNext';

 nbLast   : BtnName := 'nbLast';

 nbInsert : BtnName := 'nbInsert';

 nbDelete : BtnName := 'nbDelete';

 nbEdit   : BtnName := 'nbEdit';

 nbPost   : BtnName := 'nbPost';

 nbCancel : BtnName := 'nbCancel';

 nbRefresh: BtnName := 'nbRefresh';

 end;

 MessageDlg('Была нажата кнопка' + BtnName, mtInformation, [mbOK], 0);

end;

Edit

Денежное поле редактирования

Delphi 1 

unit CurrEdit;

interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Menus, Forms, Dialogs, StdCtrls;

type TCurrencyEdit = class(TCustomMemo)

private

 DispFormat: string;

 FieldValue: Extended;

 procedure SetFormat(A: string);

 procedure SetFieldValue(A: Extended);

 procedure CMEnter(var Message: TCMEnter); message CM_ENTER;

 procedure CMExit(var Message: TCMExit);   message CM_EXIT;

 procedure FormatText;

 procedure UnFormatText;

protected

 procedure KeyPress(var Key: Char); override;

 procedure CreateParams(var Params: TCreateParams); override;

public

 constructor Create(AOwner: TComponent); override;

published

 property Alignment default taRightJustify;

 property AutoSize default True;

 property BorderStyle;

 property Color;

 property Ctl3D;

 property DisplayFormat: string read DispFormat write SetFormat;

 property DragCursor;

 property DragMode;

 property Enabled;

 property Font;

 property HideSelection;

 property MaxLength;

 property ParentColor;

 property ParentCtl3D;

 property ParentFont;

 property ParentShowHint;

 property PopupMenu;

 property ReadOnly;

 property ShowHint;