Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TDBGridEh и GetEditText(X, Y) [D6]

kingdom2000 © (2003-05-16 19:07:00)
У меня есть TDBGridEh хочу использовать GetEditText(X, Y) делаю следующее

procedure TDBGridEh MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
Var
Str:String;
GCord: TGridCoord;
Begin
GCord:= TDBGridEh (Sender).MouseCoord(X, Y);
Str:= TDBGridEh.GetEditText(GCord.X, GCord.Y);
End;

Но компилятор ругается, говорит, что не знает что такое GetEditText(X, Y)
Подскажите, как подключить GetEditText(X, Y), чтобы получить текст из ячейки TDBGridEh.

kingdom2000 (2003-05-20 12:05:00) [1]
Vsem spasibo!

sniknik (2003-05-17 01:26:00) [2]
не знаю такого зверя как TDBGridEh но в стандартном гриде до GetEditText достучатся можно через
TMyGreed = class(TDBGrid)
(как всегда :о)
Label1.Caption:= TMyGreed(DBGrid).GetEditText(1,1);

только смысла в этом мало (судя по всему пытается произвольный доступ к ячейкам сделать, независимо от положения курсора)
реализация метода не дает такой возможности (ARow просто не ипользуется, и не может не перемещая курсора это всетаки не стринггрид)
function TCustomDBGrid.GetEditText(ACol, ARow: Longint): string;
begin
Result := "";
if FDatalink.Active then
with Columns[RawToDataColumn(ACol)] do
if Assigned(Field) then
Result := Field.Text;
FEditText := Result;
end;

естественно это для стандартного грида, в TDBGridEh может все по другому сделано.

Johnmen (2003-05-16 23:56:00) [3]
Да ты просто вдумайся, что означает это строка !!!

Str:= TDBGridEh.GetEditText(GCord.X, GCord.Y);

это, извини, бред...:)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »