Форум: "Базы";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

---

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

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

---

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

TInplaceEdit.SelText ?

---

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

TInplaceEdit.SelText ?

---

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

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

---

← →
Вячеслав ©   (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: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: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]

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

---

← →
Вячеслав ©   (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;

---

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.033 c