Главная страница
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.028 c
1-43656
Marina_S
2004-02-29 17:27
2004.03.14
Runtime error 203


8-43706
junior
2003-11-13 23:05
2004.03.14
Рисую на канве по пикселям, после вывожу надпись при


1-43447
Petrovitch
2004-02-26 14:33
2004.03.14
установить курсор (мышкин) в какую-то определенную позицию Form.


14-43786
BALU1111
2004-02-18 17:17
2004.03.14
Борьба со спамом и новый способ выкачивания денег?


6-43747
dr.sam
2004-01-08 16:07
2004.03.14
indy ftp