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

  { Private declarations }

 protected

  { Protected declarations }

  function GetLValue: TField;

 public

  { Public declarations }

  property LookUpValue: TField read GetLValue;

 published

  { Published declarations }

 end;

 TDBJustLookupList = class(TDBLookupList)

 private

  { Private declarations }

 protected

  { Protected declarations }

  function GetLValue: TField;

 public

  { Public declarations }

  property LookUpValue: TField read GetLValue;

 published

  { Published declarations }

 end;

procedure Register;

implementation

procedure Register;

begin

 RegisterComponents('Data Controls', [TDBJustLookupList, TDBJustLookupCombo]);

end;

function TDBJustLookupCombo.GetLValue: TField;

begin

 Result := LookupSource.DataSet.FieldByName(LookUpField);

end;

function TDBJustLookupList.GetLValue: TField;

begin

 Result := LookupSource.DataSet.FieldByName(LookUpField);

end;

end. 

DBMemo

Копирование содержимого DBMemo в DBMemo другого поля

Delphi 1 

Попробуй:

DBMemo6.Lines:=DBMemo5.Lines.Assign;

Поиск текста в DBMemo

Delphi 1

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

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

procedure TMainForm.FindDialog1Find(Sender: TObject);

var

 Buff, P, FT : PChar;

 BuffLen     : Word;

begin

 With Sender as TFindDialog do begin

  GetMem(FT, Length(FindText) + 1);

  StrPCopy(FT, FindText);

  BuffLen:= DBMemo1.GetTextLen + 1;

  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;