Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Вниз

Прозрочность   Найти похожие ветки 

← →
Ivolg   (2004-03-01 18:18) [0]

Здрасьте! Как можно сворганить такую вещь чтобы компоненты на форме были видны но сама форма при етом была не видна!СПАСИБО!!!

---

← →
WebErr   (2004-03-01 18:23) [1]

FormaIschezni(HWND);

---

← →
Ivolg   (2004-03-01 18:27) [2]

Поподробнее можно?

---

← →
WebErr   (2004-03-01 18:32) [3]

Хочешь форму-приведение - сделай ей альфа-бленд = 128 :))))

---

← →
VLAD-MAL   (2004-03-01 18:37) [4]

Хочешь форму-приведение - сделай ей альфа-бленд = 128 :))))
Не везде катит... И с компонентами на форме, кот. д.б. видимыми, как быть?

---

← →
WebErr   (2004-03-01 18:41) [5]

Щас эксперементну...

---

← →
DDA   (2004-03-01 18:56) [6]

var
Form1: TForm1;
fullrgn, clientrgn, ctlrgn:hrgn;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
AControl : TControl;
A, Margin, X, Y, CtlX, CtlY : Integer;
begin
Margin := ( Width - ClientWidth ) div 2;
//First, get form region
FullRgn := CreateRectRgn(0, 0, Width, Height);
//Find client area region
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight );
//"Mask" out all but non-client areas
CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );
//Now, walk through all the controls on the form and "OR" them
// into the existing Full region.
for A := 0 to ControlCount - 1 do begin
AControl := Controls[A];
if ( AControl is TWinControl ) or ( AControl is TGraphicControl )
then with AControl do begin
if Visible then begin
CtlX := X + Left;
CtlY := Y + Top;
CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height );
CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR );
end;
end;
end;
//When the region is all ready, put it into effect:
SetWindowRgn(Handle, FullRgn, TRUE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FullRgn := CreateRectRgn(0, 0, Width, Height);
CombineRgn(FullRgn, FullRgn, FullRgn, RGN_COPY);
SetWindowRgn(Handle, FullRgn, TRUE);
end;



---

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

Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.013 c