Нужна помощь.

[Extez1]

как правельно вписать

procedure BringToFront; // Сделать верхним 

procedure SendToBack; // Сделать нижним

Так чтобы Tshape1 было сверху таблицы drawgrid1.
з.ы. маус 2 контрол>SendToBack не пашет...
Подскажите как вписать всё зделал не могу зделать чтоб Tshape сверху был.

[Пепел Феникса]

Image3.BringToFront;

[Extez1]

я писал везде Shape1.BringToFront; и так Form1.Shape1.BringToFront;
и в соботие Tshape и в Form1 и чё то вобще 0 эмоции...

[Extez1]

procedure TForm1.DrawGrid1Click(Sender: TObject);
begin
Form1.DrawGrid1.SendToBack;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DrawGrid1.SendToBack;
end;

и не пашет

[Disel]

Ну тогда за место Shape1 возьми Panel1.

А еще можно Shape1 положить на Panel1 и двигать Panel1, токо что сам пробовал.

P.S. Зачем опять такую же тему создал?

[Extez1]

Мне надо чтоб Tshape ходил по датам календаря, ходы я зделал мне надо чтоб он Был сверху таблицы drawGrid.
Я вот застрял уже как 2 недели на етом моменте с SendToBack.
Я попробую Зделать спанелью. Если не трудно как вложить в панель Tshape обьясни

[Disel]

Ну так и ложи, сперва на форму кидаешь панель а потом шэйп, подгони размер панели под шейп, чтоб было незаметно, вот и все, элементарно просто.

[Extez1]

Shape тоже уходит под панель(((

[Disel]

Вот выкладываю конкретный пример. Там на панели лежит фигура, двигаю панел и она проходит поверх DrawGrid. Что тут у тебя неполучается? Все уже раз 10 разжувал.

[Extez1]

Я понел сяп, но ето не то. тут мне подсказали

А перентом дравгрид для шапе сделали?*

кто знает как ето зделат?