XPManifest run-time

[LomoCoder]

Здравствуйте! Мне нужно создать компонент TXPManifest на форме зделаной в рантайме. Пробывал так:

uses Controls, StdCtrls, Forms, Dialogs, Windows, Graphics, ExtCtrls,
     XPMan;
type
  TForm1 = class(TForm)
  Button1:TButton;
    XPManifest1: TXPManifest;
  private
  public
    constructor Create;
  end;
constructor TForm1.Create;
begin
  inherited Create(nil);
  Caption := 'TMForm1';
  Width := 298;
  Height := 256;
  Color := -16777201;

  XPManifest1 := TXPManifest.Create(Self);
  XPManifest1.Active := true;

  Button1 := TButton.Create(Self);
  With Button1 do begin
    Left := 100;
    Top := 114;
    Width := 75;
    Height := 25;
    Caption := 'Button1';
    TabOrder := 0;
   Parent := Self;
  end;
 end;
var
   F:TForm1;
begin
   F := TForm.Create;
   try
     F.ShowModal;
   finally
     F.Free;
 end;
end.

Но что-то стиль не меняется остается классический, подскажите пожалуйста как правильно его создавать, что-то не могу допетрить)

[Человек_Борща]

Никак. XPManifest - всего-лишь подключает ресурс в exe.
Создание в run-time бесполезно. Для применения ресурса нужен перезапуск exe.

как вариант:
Рядом с exe создайте файл <имя exe>.manifest запихайте туда содержимое XPManifest'а, и перезапустите exe.

[LomoCoder]

Дак это придется все время таскать манифест с ехесшником?

[LomoCoder]

А ведь в RAD Studio стиль форм под виндовс автоматически идет, можно так же сделать на Delphi 7?

[Vapaamies]

Вообще довольно странно, что манифест в Delphi реализовали в виде компонента, а не опции компоновщика или хотя бы директивы компилятора. Чтобы лучше понять его логику, представь, что компонент манифеста является заменой несуществующей опции компилятора {$APPTYPE XPMANIFEST}.

[Человек_Борща]

Дак это придется все время таскать манифест с ехесшником?

Зачем?
Если в программе нет компонента XPMonifest но иногда хочется "Включить скин", то создается рядом с exe, файл с расширением .manifest и при запуске exe, система находит его и применяет содержимое файла к exe. Чтобы выключить скин, нужно удалить манифест. И перезапустить exe, чтобы применить изменения.

Если XPManifest есть в программе, как компонент на форме, то вкл/выкл не прокатит. Манифест линкуется в exe при компиляции и остаётся там до второго пришествия.

Манифест нельзя применить к какой-то форме, он применяется ко всему приложению в целом.

Vapaamies, согласен, но манифест это лишний вес, зачем его линковать, когда оно не надо? Захочет скин, найдет и положит на форму.

[LomoCoder]

А понял, но мне это не подойдет т.к. у меня свой компилятор

[Vapaamies]

Сообщение от Человек_Борща

Vapaamies, согласен, но манифест это лишний вес, зачем его линковать, когда оно не надо?

Имел в виду, что в новых версиях Delphi манифесты наконец-то переехали на свое законное место -- в свойства проекта.

[Человек_Борща]

Vapaamies, вас удивит что компонент так же остался?

[Vapaamies]

Человек_Борща, не изучал, но он наверняка оставлен только для обратной совместимости, а в новых проектах достаточно лишь поставить галку для поддержки тем.