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

 GetMem(Buff,BuffLen);
 DBMemo1.GetTextBuf(Buff,BuffLen);
 P:= Buff + DBMemo1.SelStart + DBMemo1.SelLength;
 P:= StrPos(P, FT);
 if P = NIL then MessageBeep(0)
 else begin
 DBMemo1.SelStart:= P – Buff;
 DBMemo1.SelLength:= Length(FindText);
 end;
 FreeMem(FT, Length(FindText) + 1);
 FreeMem(Buff,BuffLen);
 end;
end;

Попробуйте так:

«Подключите» следующую процедуру к событию OnFind для FindDialog. Единственная проблема заключается в том, что в DBMemo я не могу получить выделенный текст, тем не менее в стандартном Memo такой проблемы нет.

 begin
 DBMemo1.SelStart:= P – Buff;
 DBMemo1.SelLength:= Length(FindText);
 end;
 FreeMem(FT, Length(FindText) + 1);
 FreeMem(Buff,BuffLen);
 DBMemo1.SetFocus;
end;

DBNavigator

Настройки всплывающих подсказок в DBNavigator во время выполнения приложения

Возможно ли изменение свойства Hints компонента TDBNavigator во время выполнения программы?

Это должно работать:

procedure TForm1.Button1Click(Sender: TObject);
var ix : integer;
begin
 With DBNavigator1 do
 for ix := 0 to ControlCount - 1 do
 if Controls[ix] is TNavButton then
 with Controls[ix] as TNavButton do
 case index of
 nbFirst : Hint := 'Подсказка для кнопки First';
 nbPrior : Hint := 'Подсказка для кнопки Prior';
 nbNext : Hint := 'Подсказка для кнопки Next';
 nbLast : Hint := '';
 {……}
 end;
end;

– Freddy Hansson

Выключение кнопок в DBNavigator

Delphi 1

{ Расширение DBNavigator: позволяет разработчику включать и выключать
отдельные кнопки через методы EnableButton и DisableButton }
unit GNav;

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';