Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=417753&view=findpost&p=3826639 Fri, 27 Mar 2020 07:08:59 +0000 Прозрачность формы-гаджета https://forum.sources.ru/index.php?showtopic=417753&view=findpost&p=3826639
    //---------------------------------------------------------------------------
    void __fastcall TForm1::FormCreate(TObject *Sender)
    {
    Form1->Color=255;
    Form1->TransparentColor=true;
    Form1->TransparentColorValue=255;
    }
    //---------------------------------------------------------------------------

Пока всё хорошо. Далее вставил найденный в Интернете код, позволяющий убрать системные кнопки окна, значок моего приложения в панеле задач, сделать так, чтобы моё окно не сворачивалсоь и его можно было перемещать левой мышкой:
    //---------------------------------------------------------------------------
    bool SetToDesktop() {
      HWND listViewhwnd = FindWindowA("Progman", NULL);
      if(listViewhwnd) {
        listViewhwnd = FindWindowExA(listViewhwnd, NULL, "SHELLDLL_DefView", NULL);
        if(listViewhwnd) {
          listViewhwnd = FindWindowExA(listViewhwnd, NULL, "SysListView32", NULL);
          if(listViewhwnd) {
            Form1->BorderStyle = bsNone;
            ::SetParent(Form1->Handle, listViewhwnd);
            return true;
          }
        }
      }
      return false;
    }
    //---------------------------------------------------------------------------
    __fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
    {
      if(!SetToDesktop())ShowMessage("Ошибка SetToDesktop");
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
              int X, int Y)
    {
      long SC_DRAGMOVE = 0xF012;
      if(Button == mbLeft) {
      ReleaseCapture();
      SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
      }
    }
    //---------------------------------------------------------------------------

Теперь мой гаджет стал красным, прозрачность исчезла, т.е. свойство Form1->TransparentColor=true не работает. Тогда я задал свойство TransparentColor=true в инспекторе объектов в свойствах формы. При запуске приложения форму вообще перестало быть видно. Строка, из-за которой перестала работать прозрачность формы:
    ::SetParent(Form1->Handle, listViewhwnd);

Язык C++Builder 2009. Операционная система Windows Vista. Какими мыслями поделитесь, в каком направлении мне рыть? Попробую в других операционных системах и других версиях C++Builder.]]> manemale Borland C++ Builder/Turbo C++ Explorer