Вариант №1
Вставляешь в любое место формы компоненту TXPManifest (в 7 версии она на странице Win32). И все приложение в run-time (при запуске) под XP резко меняется.
Вариант №2
Вместо кнопок кидаешь TLabel.
пишешь:
procedure TForm1.MyMouseEnter(Sender: TObject);
begin
if Sender.ClassType = TLabel
then
with Sender
as Tlabel
do begin
Font.Style := Font.Style + [fsBold];
Font.Color := clHotLight;
end;
end;
procedure TForm1.MyMouseLeave(Sender: TObject);
begin
if Sender.ClassType = TLabel
then
with Sender
as Tlabel
do begin
Font.Style := Font.Style - [fsBold];
Font.Color := clWindowText;
end;
end;
незабудь добавить
TForm1 =
class(
...
public
procedure MyMouseEnter(Sender: TObject);
procedure MyMouseLeave(Sender: TObject);
....
end;
А дальше для всех псевдокнопок в инспекторе объектов выставляешь
события
OnMouseEnter как MyMouseEnter
OnMouseLeave как MyMouseLeave
запускаешь, наслаждаешься.