Главная страница
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.032 c
1-1080149187
Asd
2004-03-24 20:26
2004.04.11
Освободить память после закрытия формы


7-1075817286
avgur
2004-02-03 17:08
2004.04.11
COM порт (модем)


14-1079543043
Chcnger
2004-03-17 20:04
2004.04.11
Факториал


14-1082108906
Jonny5
2004-04-16 13:48
2004.04.11
Терминал


3-1081943885
Виктор
2004-04-14 15:58
2004.04.11
Stored Proc