[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 493
  • Last Modified:

How to Make A outlook style Scroll box?

A scroll box with pages in it ,how can
i make this?

{
I had found a VCL :XAZone can do this.
but How can i add and delete a page
in it at runtime??

who can give me a Sample of add and
delete pages in Xazone at runtime can also get the points. :)

XAZone download url
http://vcl.vclxx.com/DELPHI/D32FREE/XAZONE.ZIP
}

Thanks for help.
:)
0
keron
Asked:
keron
  • 2
1 Solution
 
rwilson032697Commented:
Listening
0
 
zb_russiaCommented:
[phlegmatically] Is higher to you already have answered (rwilson) - use the list (or generate from TList) plants, necessary to you, - TXAZoneControl, e.t.c.

I in this situation have done without by an array TActions, to which referred for want of pressing on "outlook toolbar".
0
 
intheCommented:
hi,
here an exampe of using xazone component .

to add a zone:

procedure TForm1.Button1Click(Sender: TObject);
var
zone : TXAZoneArea;
begin
zone := TXAZoneArea.Create(Nil);
zone.Parent := XAZoneControl1;
zone.Color := clblue;
zone.Caption := 'The New Zone';
zone.Enabled := true;
zone.Active := true;
end;

to delete the zone:

procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
with XAZoneControl1 do begin
for i := Controlcount -1  downto 0 do
begin
if( Controls[ i ] is TXAZoneArea )then
begin
if (Controls[ i ] as TXAZoneArea).Caption = 'The New Zone' then
// or
// if (Controls[ i ] as TXAZoneArea).Name = 'zone' then ...
begin
(Controls[i] as  TXAZoneArea).Active := false;
(Controls[i] as  TXAZoneArea).Enabled := False;
(Controls[i] as  TXAZoneArea).Hide;
(Controls[i] as  TXAZoneArea).Free;
end;
end;
end;
end;


Regards Barry
0
 
intheCommented:
opps forgot to give zone a name after i added it:

should be:

zone := TXAZoneArea.Create(Nil);
zone.Name := 'zone'; <-- forgot this ;-)
0

Featured Post

Take Control of Web Hosting For Your Clients

As a web developer or IT admin, successfully managing multiple client accounts can be challenging. In this webinar we will look at the tools provided by Media Temple and Plesk to make managing your clients’ hosting easier.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now