Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.036 c
3-43384
}|{yk
2004-02-18 13:59
2004.03.14
Процедуры, возвращающие набор значений в Оракле


1-43588
SEn
2004-02-27 12:23
2004.03.14
Как убрать приложение из списка задач?


1-43517
Grinder
2004-02-22 15:56
2004.03.14
высота колонки в list view


6-43745
Руль
2004-01-08 13:16
2004.03.14
Как закрыть инет? Программно.


3-43280
Руслан
2004-02-17 13:07
2004.03.14
шрифт из Delphi на Access