Панели

[Ko$]

Как сделать: На форме есть панель, на панели кнопки, при нажатии на одну определённую из этих кнопок появлялась вторая панель прям на первой панели, на второй панели есть тоже кнопки. Как сделать чтобы при убирании курсора со второй панели она становилась Visible:=false. Я делаю но при наведении на кнопку на второй панели она закрывается так как щитает что при наведении курсора на кнопку на панели 2 она выходит за рамки самой панели 2 как сделать чтобы этого не происходило???

procedure TForm1.btn1Click(Sender: TObject);
begin
sPanel1.Visible:=True;
end;


procedure TForm1.sPanel1MouseLeave(Sender: TObject);
begin
sPanel1.Visible:=False;
end;

[NetSpace]

в таймере сделай проверку на положение курсора мыши: над панелью он или нет?
только не забудь, что координаты мыши считаются от верхнего левого угла ЭКРАНА, а панель №2 лежит на первой панели и на форме.

цикл таймера
begin
if(CursorPos.X<Form1.Left+Panel1.Left+Panel2.Left)or(Form1.Left+Panel1.Left+Panel1.Left+Panel1.Width<CursorPox.X)then
if(CursorPos.Y<Form1.Top+Panel1.Top+Panel2.Top)or(Form1.Top+Panel1.Top+Panel1.Top+Panel1.Height<CursorPox.Y)then
 Panel2.Visible:=False;//если курсор не попадает на площадь панели - панель исчезает
end;

[Ko$]

Ошибка. Пишет следующее:
[Error] Unit1.pas(389): Undeclared identifier: 'CursorPos' Это исправил
Но код ваш не работает т.е. запускается но функции свои не выполняет. И на сколько ставить таймер?

[NetSpace]

таймер ставьте на 100 мсек. пусть почаще проверяет.
а ошибка тут была, но я исправил:

if(CursorPos.X<Form1.Left+Panel1.Left+Panel2.Left)or(Form1.Left+Panel1.Left+Panel2.Left+Panel2.Width<CursorPox.X)then
if(CursorPos.Y<Form1.Top+Panel1.Top+Panel2.Top)or(Form1.Top+Panel1.Top+Panel2.Top+Panel2.Height<CursorPox.Y)then...

[Ko$]

А то что CursorPox так и должно быть? Если да то какой тип ставить?

Сообщение от NetSpace

таймер ставьте на 100 мсек. пусть почаще проверяет.
а ошибка тут была, но я исправил:

if(CursorPos.X<Form1.Left+Panel1.Left+Panel2.Left)or(Form1.Left+Panel1.Left+Panel2.Left+Panel2.Width<CursorPox.X)then
if(CursorPos.Y<Form1.Top+Panel1.Top+Panel2.Top)or(Form1.Top+Panel1.Top+Panel2.Top+Panel2.Height<CursorPox.Y)then...

Ещё такая фишка когда нажимаеш на кнопку которая стоит на форме1 то срабатывает таймер потому что курсор в данный момент находится на кнопке и форма открывается и закрывается через 100 дол сек