Поиск в бд.

[Екатерина20]

Не подскажете, как сделать чтобы при нажатии на окошко поиск, текст "Поиск" исчезал?

[Sparky]

Edit1.clear, ну или смотрю где находится этот текст...

[Екатерина20]

Извини не очень поняла, куда это вставить?

procedure TForm77.Edit_SearchChange(Sender: TObject);
var Key: Word; Shift: TShiftState;
begin
if Edit_Search.Text='' then
begin
  ADOQuery1.Active:=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM [клиенты]');
  ADOQuery1.Active:=True;
end else
begin
  ADOQuery1.Active:=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM [клиенты] WHERE [Фамилия] LIKE "'+Edit_Search.Text+'%"');
  ADOQuery1.Active:=True;
end;

[Ericnex]

В начале кода после Begin. Edit1.Text.Clear;

[Екатерина20]

Все равно ничего не выходит.Выдает ошибку "[Ошибка] Unit77.pas(58): Record, object or class type required"

[Librarian]

В вашем случае так Edit_Search.Text.Clear;

Если полностью используя предоставленный Вами код, то будет выглядеть примерно так:

//В самом верху после 
type
  TForm77 = class(TForm)
//поставить
procedure Edit_SearchClick(Sender: TObject);
//потом после строк
implementation

{$R *.dfm}
//гденибудь поставить
procedure TForm77.Edit_SearchClick(Sender: TObject);
begin
Edit_Search.Text.Clear;
end;
//или это, что одно и тоже
procedure TForm77.Edit_SearchClick(Sender: TObject);
begin
Edit_Search.Text:='';
end;

[Екатерина20]

Сообщение от Librarian

В вашем случае так Edit_Search.Text.Clear;

Это то понятно что так. Куда только этот Clear не пихала, все-равно не работает. Попробовала как вы написали, в процедуре поменяла Edit1Change на Edit1Click? так вообще поиск перестал работать.

[Librarian]

Не путайте Edit1Change и Edit1Click, первое обрабатывает событие на изменение текста в Edit1 второе обрабатывает клик мышкой на Edit1, это две большие разницы, не собирайте предоставленное в одну процедуру. В Edit1Change оставте поиск в Edit1Click очистка поля от текста. Если Clear не срабатывает (странно), поставте Edit1.Text:=''; и всё, таже очистка.

[Екатерина20]

Спасибо, он теперь стирает слово. С Clear он так и не заработал, только с этим Edit1.Text:=''. Но проблема в том, что он сразу теперь открывается с отфильтрованным списком на "П"

Теперь он вообще что-то странное делает, убирает мою группировку по фамилии и группирует по номеру. И если один раз на окошко поиска нажал, он стер надпись и больше она не появляется.

[googl]

Мне кажется, никто не увидел суть изначальной проблемы. В едите изначально сотри Text и укажи TextHint -поиск. и вот когда ты будешь нажимать на окошко с поиском, слово ПОИСК будет пропадать. а все Clear можно поубирать