Grid

← →
VIB (2003-02-21 19:14) [0]

Есть компонент Grid на форме.

Как мне через него узнать Top и Left формы

← →
mike-d (2003-02-21 19:20) [1]

мда - хороший вопрос, понимай как хочешь...
у формы есть свои Top и Left - в чем проблема их прочитать?

← →
VIB (2003-02-21 19:24) [2]

Объясняю подробнее.
Есть клас TMDBGrid наследник класа TDBGrid.
В конструкторе этого класса надо создать (динамичеки)
TEdit и поместить его ниже грида.

← →
Mike_Goblin (2003-02-21 19:26) [3]

(DBGrid1.Owner as TForm).Top

← →
Anatoly Podgoretsky (2003-02-21 19:32) [4]

Ну тогда тебе вообще не нужны координаты формы, достаточно Grid.Top+Grid.Height+Offset

← →
VIB (2003-02-22 10:39) [5]

Я не понял что такое OffSet.
И самое главное мне надо выбрать предка для TEdit
он должен быть таким же и в Gride

← →
Anatoly Podgoretsky (2003-02-22 10:59) [6]

1. необходимое тебе смещение
2. У Grid (не знаю только какой у тебя) и TEdit наиболее общий предок TWinControl, только выбирать тебе не придется, не позволено, задано иерархией классов.

← →
VIB (2003-02-22 11:03) [7]

Если я ложу грид непосредственно на форму тогда
все нормально. TEdit выводится там где нужно.
Но когда я ложу грид на TPanel получается неправильно.
Как мне найти контейнер на каком лежит Grid чтобы Parent-ом
его передать TEdit.
Или я чего-то не понимаю.

← →
Романов Р.В. (2003-02-22 11:09) [8]

Parent - это то на чем лежит компонент

← →
Anatoly Podgoretsky (2003-02-22 11:12) [9]

У Grid есть Parent его и используй.

← →
VIB (2003-02-22 11:17) [10]

Он имеет значение nil

← →
Anatoly Podgoretsky (2003-02-22 11:44) [11]

Значит он не видим на форме, ну и какая разница, тоже самое будет и с TEdit.
Нет Parent значит нет.

← →
MBo (2003-02-22 11:46) [12]

>Он имеет значение nil
Уверен? Таких контролов ты не увидишь.

← →
VIB (2003-02-22 12:44) [13]

Хорошо пишу кусок кода.

//*************************************************
constructor TMDBGridEh.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
SearchEdit:=TEdit.Create(Self);
SearchEdit.Parent:=Self.Parent;
SearchEdit.Vidible:=True;
end;

После этого я не вижу TEdit что не так.
Спасибо.

← →
MBo (2003-02-22 12:53) [14]

попробуй назначить Parent в перекрытом CreateWnd

← →
VIB (2003-02-22 13:02) [15]

Спасибо я уже разобрался.

← →
Palladin (2003-02-22 13:02) [16]

дык при создании TMDBGridEh у TMDBGdindEh нету еще Parent

constructor TMDBGridEh.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
SearchEdit:=TEdit.Create(Self);
SearchEdit.Parent:= AOwner;
SearchEdit.Visible:=True;
end;

← →
malkolinge (2003-02-24 11:32) [17]

Блин зачем все так усложнять ? задача - то в том чтобы найти топ и лефт формы. Как
запрсто, берем парента, если от TForm тогда все готово, если нет (ну грид на панели к примеру лежит), тогда берем его парента т.д.

VParent:=Grid.Parent
while Assigned(VParent) and not (Vparent is TForm) do
VParent:=Vparent.Parent;

и все по-моему..По крайней мере идею изложил :)

Grid Найти похожие ветки