Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.02.2008, 12:51   #11
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
я хотел еще реализовать дополнительную возможность: именно чтобы Edit1 был встроен во всплывающее меню! когда кликнешь над конкретным полем в DBGrid правой кнопкой и наборе во всплывающем меню значении фильтрация производится именно по набранному значению и именно в конкретном поле
С меню вы намучаетесь.
Я вам набросал вариант с диалогом:
Код:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var mydialog: TForm;
    ted: TEdit;
begin
mydialog := CreateMessageDialog('Задайте фильтр для поля', mtWarning, [mbYes, mbNo]);
ted:= TEdit.Create(mydialog);
with mydialog do
try
Caption := 'Фильтрация данных' ;
Height := 170;
Width:=200;
Left:=Mouse.CursorPos.X;
Top:=Mouse.CursorPos.Y;
with ted do
begin
Parent := mydialog;
Text := (Sender as TDBGrid).SelectedField.AsString;
Top := 110;
Left := 20;
Width:=160;
end;
case ShowModal of
ID_YES: //здесь Ваш код после того как диалог будет закрыт
       ; //....
ID_NO: ;
end;
finally
ted.Free;
Free;
end;
end;

Последний раз редактировалось mihali4; 09.02.2008 в 12:59.
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запрос или Фильтр wolfik0 БД в Delphi 3 02.05.2008 04:42
Фильтр Инночка Помощь студентам 4 30.04.2008 20:27
Фильтр в базе Versifikator БД в Delphi 3 18.04.2008 10:35
фильтр в dbgrid ГОСЕАН БД в Delphi 2 24.12.2007 15:14
Фильтр и поиск emfw БД в Delphi 1 11.03.2007 11:01