Форум: "Базы";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизTDBGridEh и GetEditText(X, Y) Найти похожие ветки
← →
kingdom2000 (2003-05-16 19:07) [0]У меня есть 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.
← →
Johnmen (2003-05-16 23:56) [1]Да ты просто вдумайся, что означает это строка !!!
Str:= TDBGridEh.GetEditText(GCord.X, GCord.Y);
это, извини, бред...:)
← →
sniknik (2003-05-17 01:26) [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 может все по другому сделано.
← →
kingdom2000 (2003-05-20 12:05) [3]Vsem spasibo!
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c