При фильтрации в Dbgrid если нашлись данные то чтобы выскочил showmessage и сказал что-то нашлось

[Roman123654789]

У меня возникла проблема, я написал фильтрацию по DBgrid. Как сделать если во время фильтрации нашлись какие-то данные то выскочил шовмеседж и сообщил об этом. Может кто-то подсказать как сделать такое? Так я делал фильтр:

if edit1.text <> '' then begin
Таблиця1.Filtered:=false;
form5.ed:= Edit1.Text;
Таблиця1.Filtered:=true;
end
else
Таблиця1.Filtered :=false;

[Stilet]

if not Таблиця1.eof then шов месседж
Это после включения фильтрации.

[Roman123654789]

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

if not Таблиця1.eof then шов месседж
Это после включения фильтрации.

Спасибо помогло, но теперь появилась иначе проблема, при захода в программу автоматически вставляются данные времени и выполняется фильтрация, если данные после фильтрации нашлись, то выбрасывает шовмеседж, но когда я ввожу в поиск данные то шовмеседжа мне уже не нужно, как его убрать? Не подскажите?)

[Stilet]

Не пиши в личку. Пиши сюда, тема же для всех открыта. Одна голова хорошо - две лучше.
Цитирую себя же: Используй StatusBar для вывода такой инфы. Удобнее и мороку меньше.

[Roman123654789]

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

Не пиши в личку. Пиши сюда, тема же для всех открыта. Одна голова хорошо - две лучше.
Цитирую себя же: Используй StatusBar для вывода такой инфы. Удобнее и мороку меньше.

Мне просто нужно чтобы при включении компьютера выдавало что у кого-то день рождения(автоматически фильтруется) , а когда в поиск ввожу дание уже на главной форме то меседжа или новой форми(вместо меседжа) уже не нужно

[Stilet]

Соодеска...
Ну втули этот код (что в топе) в некую процедуру. Ее вызывай и в OnCreate и в том месте где уже принудительно фильтруешь. Только в OnCreate поставь шовмесседж, а дальше нет.

[Roman123654789]

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

Соодеска...
Ну втули этот код (что в топе) в некую процедуру. Ее вызывай и в OnCreate и в том месте где уже принудительно фильтруешь. Только в OnCreate поставь шовмесседж, а дальше нет.

Спасибо, заработало )