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

Невидимая форма   Найти похожие ветки 

← →
eviruswork   (2002-06-14 13:45) [0]

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

---

← →
Song ©   (2002-06-14 13:57) [1]

TForm.Hide

---

← →
Kaban   (2002-06-14 14:03) [2]

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

---

← →
Игорь Шевченко ©   (2002-06-14 14:33) [3]

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

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

---

← →
Pat ©   (2002-06-14 15:17) [4]

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

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.



---

← →
Goblinus ©   (2002-06-14 15:34) [5]

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

Brush.Style := bsClear;

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

---

← →
eviruswork   (2002-06-17 18:58) [6]

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

---

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

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



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