Как получить выделенный текст в 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;

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

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

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

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