изменение цвета Panel при наведении мыша

[Kashp]

Подскажите пожалуйста!
на форме только одна Panel, как можно сделать, чтобы при наведении мыша на эту панель ее цвет изменялся, а при отведении мыша цвет возвращался на место?
С наведением вроде ясно:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.Color:=clBlack;
end;

А вот как вернуть прежний цвет?

[Tayfun]

Проще чем ты думаешь! Все почти тоже самое только
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Color:=clBtnFace;
end;

[Kashp]

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

Проще чем ты думаешь! Все почти тоже самое только
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Color:=clBtnFace;
end;

хм.. что-то не получается.

[Tayfun]

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Color:=clGreen;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Color:=clSilver;
end;

Все прекрастно работает!

[mutabor]

Kashp учти только, это выполняется при каждом и на протяжении всего движения мыши, если нужно будет что-то сложнее изменения цвета, желательно дополнить алгоритм так чтобы код выполнялся один раз при входе мыши и один раз при выходе

[Kashp]

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

Kashp учти только, это выполняется при каждом и на протяжении всего движения мыши, если нужно будет что-то сложнее изменения цвета, желательно дополнить алгоритм так чтобы код выполнялся один раз при входе мыши и один раз при выходе

Вот это собственно мне очень интересно узнать Как это сделать можно?

[Sniper]

Ставте себе Borland Developer Studio.
Там к большинству компонентов есть события OnMousEnter и OnMouseLive (если я не напутал названия). Вот их и юзай... Они вызываються один раз... Тока XPManifest не кидай на форму.

[mutabor]

Вот это собственно мне очень интересно узнать Как это сделать можно?

если нет желания устанавливать последние версии Дельфи, придется самому код писать, что-то в этом роде

var
MouseOnPanel: boolean;

procedureTForm1.Panel1MouseMove(Sender:TObject;Shift:TShiftState;X,Y: Integer);
begin
if not MouseOnPanel then
  begin
    MouseOnPanel:=true;
    Panel1.Color:=clGreen;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject;Shift:TShiftState;X,Y: Integer);
begin
if MouseOnPanel then
  begin
    MouseOnPanel:=false;
    Panel1.Color:=clSilver;
  end;
end;

[Kashp]

Всем спасибо за помощь!