Свой цвет при создании окна

[Alex Cones]

Щас с "насущным" (пост №9) разберусь и буду выяснять.

[raxp]

а зачем ты делаешь дырку на розовом цвете...

SetLayeredWindowAttributes(FRMBack.Handle, $FF00FF, 50, $00000001 {LWA_COLORKEY});

[Alex Cones]

Тьфу, елки, мне ж его вырезать надо...

Не, ну правильно, закрасил форму розовым, потом его вырезал. Тут же я какую систему для основы взял:

Т.к. не проводник отвечает за фоновую картинку, то, чтобы не ставить хук на клики мне проще положить форму TBack на фон, залить её фоновой картинкой и у неё обрабатывать клики. А СВЕРХУ кладу TMain, с интерфейсом, все, что не интерфейс - залито розовым, следовательно "просвечивает" до фоновой формы с обоями. Проще же так обрабатывать клики и эффекты.

Стоп... Вот я осел, я сейчас на Back`е розовый вырезал... Идиот...\


Вотъ, переписал на главную форму, включил её создание. Все работает, а прозрачности нет. Как будто игнорирует строки кода:

Procedure SetTransparent;
Begin
 UNTFRMExp.SetClassLong(FRMMain.Handle, -10 {BACKGROUND}, UNTFRMExp.CreateSolidBrush($FF00FF));
 UNTFRMExp.SetWindowLong(FRMMain.Handle, -20 {GWL_EXSTYLE},
    UNTFRMExp.GetWindowLong(FRMMain.Handle, -20 {GWL_EXSTYLE})
  Or $00080000 {WS_EX_LAYERED});
 UNTFRMExp.SetLayeredWindowAttributes(FRMMain.Handle, $FF00FF, 50, $00000001 {LWA_COLORKEY});
End;

UPD ---------------------------------------

Чтобы было более наглядно:

Procedure FillForm(Num : Integer);
Begin
 Case Num Of
  0: Begin
      FRMMain.ClsName := 'TMain';
      FRMMain.Left := 50;
      FRMMain.Top  := 50;
      FRMMain.Width  := UNTFRMExp.GetSystemMetrics(0)-100;
      FRMMain.Height := UNTFRMExp.GetSystemMetrics(1)-100;
      FRMMain.Parent := FRMBack.Handle;
     End;
  1: Begin
      FRMBack.ClsName := 'TBack';
      FRMBack.Left := 0;
      FRMBack.Top := 0;
      FRMBack.Width := UNTFRMExp.GetSystemMetrics(0);
      FRMBack.Height := UNTFRMExp.GetSystemMetrics(1);
      FRMBack.Parent := 0;
     End;
  End;
End;

Procedure WindowCreate(Var FRM : TShrewForm);
Begin
 FRM.hInst := UNTFRMExp.GetModuleHandle(Nil);
  With FRM.WinClass Do
   Begin
    Style := Cardinal(2) Or Cardinal(1); //$80;
    hIcon := UNTFRMExp.LoadIcon(FRM.hInst, PAnsiChar('MAINICON'));
    lpfnWndProc := @UNTFRMProc.WindowProc;
    hInstance := FRM.hInst;
    hbrBackground := 15 + 1;
    lpszClassName := FRM.ClsName;
    hCursor := UNTFRMExp.LoadCursor(0, PAnsiChar(32512));
   End;
 UNTFRMExp.InitCommonControls;
 UNTFRMExp.RegisterClass(FRM.WinClass);
 FRM.Handle := UNTFRMExp.CreateWindowEx(0, FRM.ClsName, 'Shrew',
 Cardinal($80000000) (* WS_POPUP *), FRM.Left, FRM.Top,
 FRM.Width, FRM.Height,
 FRM.Parent, 0,
 FRM.hInst, Nil);
End;

 UNTFRMProc.FillForm(1);
 UNTFRMProc.WindowCreate(FRMBack);
 UNTFRMProc.FillForm(0);
 UNTFRMProc.WindowCreate(FRMMain);