Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Как получить выделенный текст в DBGrid   Найти похожие ветки 

 
Вячеслав ©   (2004-04-14 11:33) [0]

Задача в создании фильтра по содержимому выделенного в ячейке текста. Нужно получить не весь текст ячейки, а только ту часть которая выделена. Если кто знает как-помогите!!!!! :)
Стал на ручник и не могу сняться :))


 
Vlad ©   (2004-04-14 11:39) [1]

TInplaceEdit.SelText ?


 
Вячеслав ©   (2004-04-14 11:47) [2]

Вау, сенксь :)
Это именно оно


 
Вячеслав ©   (2004-04-14 12:24) [3]

Для всех жаждущих и страждущих...
Спасибо Vlad еще раз, пинок в нужном направлении помог! :)

function GetSelGridEditText( Grid: TDBGrid ): String;
var i: Integer;
Begin
  Result := "";
  for i := 0 to Pred( Grid.ComponentCount ) do
     if Grid.Components[i] is TInplaceEdit then
        Result := TInplaceEdit( Grid.Components[i] ).SelText;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
       Edit1.text:= GetSelGridEditText( DBGrid1 )
end;


 
Вячеслав ©   (2004-04-14 12:26) [4]

Спасибо Vlad!

function GetSelGridEditText( Grid: TDBGrid ): String;
var i: Integer;
Begin
  Result := "";
  for i := 0 to Pred( Grid.ComponentCount ) do
     if Grid.Components[i] is TInplaceEdit then
        Result := TInplaceEdit( Grid.Components[i] ).SelText;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
       Edit1.text:= GetSelGridEditText( DBGrid1 )
end;


 
Вячеслав ©   (2004-04-14 12:28) [5]

Упс... Извиняюсь за дубль. При отсылке Юзергейт матюков нагнул, думал не отправилось :)


 
Vlad ©   (2004-04-14 12:30) [6]

Можно проще ;-)

type
 THackGrid=class(TDBGrid);

.....

procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(THackGrid(DBGrid1).InplaceEditor) then
 ShowMessage(THackGrid(DBGrid1).InplaceEditor.SelText);
end;



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.029 c
1-1082470285
temppp
2004-04-20 18:11
2004.04.11
TFileListBox


7-1079838935
DuchmanSoft
2004-03-21 06:15
2004.04.11
Неубиваемый процесс


7-1075199063
Sour
2004-01-27 13:24
2004.04.11
Почтовый клиент по умолчанию


1-1080051069
ruslan_as
2004-03-23 17:11
2004.04.11
Помогите считать двоичный файл


1-1080124608
Dysan
2004-03-24 13:36
2004.04.11
StrToDate( 29/02/2004 );