Скачать: CL | DM;

AetLayeredWindowAttributes объясните что не так делаю!   Найти похожие ветки 

← →
Denius   (2003-10-01 20:04) [0]

Пытаюсь сделать панельке прозрачный цвет. Посмотрел как работает TransparentColor у TForm. Передрал, разобрался, что где указывать... И... Не работает...
Если все это делать с хендлом главной формы все в поряде, а вот с хендлом TPanel не хочет...

procedure TForm1.Panel1Click(Sender: TObject);
Var AStyle : Integer;
color : integer;
hwnd : Integer;
begin
hwnd := panel1.handle;
color := panel1.color;
AStyle := GetWindowLong(Hwnd, GWL_EXSTYLE);
SetWindowLong(Hwnd, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(Hwnd,color , 0, LWA_COLORKEY);
end;

Объясните мне чем отличаются для винды окно "главная форма" и окно "panel"

---

← →
mike.dld ©   (2003-10-02 04:48) [1]

дочерние компоненты нельзя сделать полупрозрачными (с помощью этой функции), она подходит только для окон

---

← →
Rem ©   (2003-10-02 14:40) [2]

SetWindowRgn()

---

← →
Denius   (2003-10-02 14:49) [3]

Ну к стати сказать, тут идет установка не полупрозрачности/alfablend, а процрачного цвета то есть transparentcolor...
Объясните, кто сечет, чем в данном случае отличаются окна формы и панельки

---

← →
Denius ©   (2003-10-06 16:08) [4]

Народ, в чем разница между формой и панелью TPanel в контексте окон API?

---

← →
NAlexey ©   (2003-10-06 16:42) [5]

Тебе же сказал mike.dld что не подходит это для дочерних окон. Panel - это дочернее окно по отношению к форме(ну или к тому на ком она лежит) Panel не может себя рисовать нигде кроме как на Parent. А форма может, у нее нет Parent она не дочернее окно, а Panel дочернее окно. И как уже сказал mike.dld не подходит этот метод для дочерних окон. Можешь делать прозрачными диалоги, меню, формы все НЕ дочерние контролы.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c