Form Style не меняется у второй формы

[pinya_mov]

Ну и славно, хоть дальше не стал позориться, уже за это тебе плюс
Бывай.

[min@y™]

и тебе не хворать. до свиданья.

[pinya_mov]

Давай давай, всех благ.

[min@y™]

будь здоров, я посижу тут ещё. заходи, если что.

[pinya_mov]

Какой упертый школьник (как определение интеллекта, а не возраста).
Ты явно хочешь поговорить?Ну пиши в личные сообщения, это же флуд, за такое дяди модераторы бо-бо сделают.

[min@y™]

тебе-то чего терять?
Ладно, я объясню. Убрать из autocreate все формы, кроме главной, я посоветовал не просто так, а для экономии памяти и ускорения старта программы. Сам я такую практику использую лет 20. Вот, допустим, файл одного из моих проектов. Посмотри, сколько окон, а создаётся при старте только главная форма:

program SourceEditor;

{%ToDo 'SourceEditor.todo'}

uses
  Forms,
  Windows,
  Messages,
  SysUtils,
  Main in 'Main.pas' {SourceEditorMainForm},
  uPages in 'uPages.pas',
  uXmlUtils in 'uXmlUtils.pas',
  ECXMLParser in 'ECXMLParser.pas',
  ECXMLTokenizer in 'ECXMLTokenizer.pas',
  uRoutines in 'uRoutines.pas',
  uNodes in 'uNodes.pas',
  uConsts in 'uConsts.pas',
  uInputBox in 'uInputBox.pas' {InputBoxForm},
  uEncoding in 'uEncoding.pas',
  uProjectProperties in 'uProjectProperties.pas' {ProjectPropsForm},
  uHLManager in 'uHLManager.pas',
  SynHighlighterBasis in 'SynHighlighterBasis.pas',
  uHighlightForm in 'uHighlightForm.pas' {HighlightForm},
  uGotoLineForm in 'uGotoLineForm.pas' {GotoLineForm},
  uTypes in 'uTypes.pas',
  uLogForm in 'uLogForm.pas' {LogForm},
  uSearchReplaceForm in 'uSearchReplaceForm.pas' {SearchReplaceForm},
  uSettings in 'uSettings.pas',
  uParamsForm in 'uParamsForm.pas' {ParamsForm},
  uAutoComleteForm in 'uAutoComleteForm.pas' {AutocompleteForm},
  uNewKeyForm in 'uNewKeyForm.pas' {NewKeyForm},
  rpVersionInfo in 'rpVersionInfo.pas',
  uHtmlUtils in 'uHtmlUtils.pas',
  uToolBarsForm in 'uToolBarsForm.pas' {ToolBarsForm},
  uBasisUtils in 'uBasisUtils.pas',
  uDeviceAddressForm in 'uDeviceAddressForm.pas' {DeviceAddressForm},
  uCharsForm in 'uCharsForm.pas' {CharsForm},
  uEncodingForm in 'uEncodingForm.pas' {EncodingForm},
  uNewTableForm in 'uNewTableForm.pas' {CreateTableForm},
  uNewLinkForm in 'uNewLinkForm.pas' {CreateLinkForm},
  uTextFinder in 'uTextFinder.pas',
  uTagsForm in 'uTagsForm.pas' {TagsForm},
  uNewTagForm in 'uNewTagForm.pas' {NewTagForm},
  uPageSetupForm in 'uPageSetupForm.pas' {PageSetupForm},
  uPrintPreviewForm in 'uPrintPreviewForm.pas' {PrintPreviewForm},
  uFindInFilesForm in 'uFindInFilesForm.pas' {FindInFilesForm},
  SynHighlighterAsm51 in 'SynHighlighterAsm51.pas';

{$R *.res}


procedure HaltProgram;
begin
  try
    if MutexHandle <> 0
      then CloseHandle(MutexHandle);
  except
   // Молчим в тряпочку...
  end;

  Halt;
end;

function IsNextInstance: Boolean;
begin
  Result:= False;
  MutexHandle:= 0;
  MutexHandle:= CreateMutex(nil, True, OneInstMutexName);

  if MutexHandle <> 0
   then begin
          if GetLastError = ERROR_ALREADY_EXISTS
           then begin
                  Result:= True;
                  CloseHandle(MutexHandle);
                  MutexHandle:= 0;
                end;
        end;
end;

// Передача командной строки в первую копию программы
procedure SendCommandLine;
var
  PrevMainFormHandle: THandle; // Хэндл формы предыд. копии программы
  FileName: string;
  Len: Integer;
  Data: TCopyDataStruct; // Структура для передачи
  Buffer: array[0..MAX_PATH - 1] of Char; // Буфер для передачи
begin
  FileName:= ParamStr(1);
  Len:= Length(FileName);

  if not FileExists(FileName) or (Len > MAX_PATH)
    then Exit;

  PrevMainFormHandle:= FindWindow('TSourceEditorMainForm', nil);

  if PrevMainFormHandle = 0
    then Exit;

  //Buffer:= FileName;
  FillChar(Buffer, SizeOf(Buffer), #0);
  Move(FileNAme[1], Buffer[0], Len);
  Data.dwData:= 0;
  Data.cbData:= SizeOf(Buffer);
  Data.lpData:= @Buffer;
  SendMessage(PrevMainFormHandle, WM_COPYDATA, 0, Integer(@Data));
end;

begin
  Application.Initialize;

  // Недопущение второй копии
  ActivateMessage:= RegisterWindowMessage(OneInstActivateMessage);

  if IsNextInstance
    then begin
           PostMessage(HWND_BROADCAST, ActivateMessage, 0, 0);
           SendCommandLine();
           HaltProgram();
         end;

  GlobalInit();
  ProgramSettings:= TProgramSettings.Create();
  HighlighterManager:= THighlighterManager.Create();

  Application.CreateForm(TSourceEditorMainForm, SourceEditorMainForm);
  Application.Run;

  ProgramSettings.Free();
  HighlighterManager.Free();
end.

Все остальные окна создаются по мере необходимости и прибиваются сразу, как только необходимость их присутствия в памяти отпадает.

З.Ы. Я занимаюсь компами и программированием с 1990 года. У меня солидный опыт и большой оклад. Ты меня очень сильно оскорбил словом "умник". Я не требую извинений, т.к. уверен, что не получу их, но советую тебе: прежде чем оскорбить кого-то, кто, всё-таки, пытался (пусть, по-своему, но всё же) тебе помочь советом, убедиться, что ты находишься в интернете.

[pinya_mov]

Все остальные окна создаются по мере необходимости и прибиваются сразу, как только необходимость их присутствия в памяти отпадает.

Зачем ты мне все это пишешь?Я преимущество динамического создания форм прекрасно знаю.Вопрос в том, какое нафиг отношение это имеет к моему вопросу?
Ты написал "абы что", чуть чуть подходящее к моему вопросу, толком не разобравшись.. И сразу же обиделся, когда я тебе указал на это...

З.Ы. Я занимаюсь компами и программированием с 1990 года. У меня солидный опыт и большой оклад.

О боги... Надеюсь ты не станешь писать про 20 см, и жену блондинку?Пожалуйста, не надо..

Ты меня очень сильно оскорбил словом "умник".

Ты первый, причем без всякого на то основания мне нахамил. Все что я писал тебе, было лишь ответами на твои "выпады".
Ты сам опозорился в данной теме, и винить должен лишь себя.

(пусть, по-своему, но всё же) тебе помочь советом

Прости, но это не помощь. Это тешение своего самолюбия, и не более того.

убедиться, что ты находишься в интернете.

Хм, ты мне таким, завуалированным способом попытался угрожать?
Я готов повторить все что сказал в лицо в любое время. Если у тебя есть такое желание.

[min@y™]

Хм, ты мне таким, завуалированным способом попытался угрожать?

нет.
действительно, какого хрена я тут делаю?

Я готов повторить все что сказал в лицо в любое время. Если у тебя есть такое желание.

адрес дать или сам по ip вычислишь?
добро пожаловать.

[pinya_mov]

адрес дать или сам по ip вычислишь?

Так ты же первый намекнул мне на "находишься в интернете". Я логично подумал, что тебя так сильно задело, что ты хочешь встретиться
Адрес легко могу предоставить.

[min@y™]

Так ты же первый намекнул мне на "находишься в интернете".

никаких намёков. я хотел сказать только то, что сказал.