| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Невидимая форма [D6, Win95/98]

eviruswork ©   (2002-06-14 13:45:00) 

Как сделать форму невидимой, а то что на ней, чтобы отображалось?

---

eviruswork   (2002-06-17 18:58:00) [1]

Пасибо, обязательно все попробую.

---

Goblinus   (2002-06-14 15:34:00) [2]

Если я прасильно понял, то тебе нужна прозрачная форма. В OnCreate формы пиши:

Brush.Style := bsClear;

Долно получиться.

---

Pat   (2002-06-14 15:17:00) [3]

Может быть так?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure DoIt;
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.DoIt;
var r1,r2:hrgn;
x,y,i:integer;
begin
x:=(width-clientwidth) div 2;
y:=height-clientheight - x;
r1:=createrectrgn(0,0,width,height);
r2:=createrectrgn(x,y,width-x,height-x);
combinergn(r1,r1,r2,RGN_DIFF);
for i:= 0 to ControlCount - 1 do
with Controls[i] do begin
r2:= CreateRoundRectRgn(Left+x,Top+y, Left +
Width+x, Top+Height+y,20,20 );
CombineRgn(r1, r1, r2, rgn_Or);
end;

setwindowrgn(handle,r1,true);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HorzScrollBar.Visible:=false;
VertScrollBar.Visible:=false;
DoIt;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
DoIt;
end;

end.



---

Игорь Шевченко   (2002-06-14 14:33:00) [4]

В 95/98 очень непросто будет, IMHO

Но, на всякий случай, поглядите
http://www.delphikingdom.com/treasury/samples.htm#link10

---

Kaban   (2002-06-14 14:03:00) [5]

Да не он имеет ввиду, чтобы компоненты были видн. Тут надо с регионами работать.

---

Song   (2002-06-14 13:57:00) [6]

TForm.Hide

---

Наверх