PageControl & TabSheet

Question

Bonsoir tout le monde, 
J'aurais voulue savoir ci il y a  une option pour fermer un TabSheet qui est dans un PageControl ? 
Merci d'avance.


Mon Site Web : http://Www.BenXbox.Fr.sT

lapucedu88 · Answer

Le fermer je sais pas, mais tu peux le rendre invisible.
Voil&#224; un exemple de code qui utilise un popupmenu : 

procedure TForm1.Fermer1Click(Sender: TObject);
var
page:integer;
begin
page:=pc.ActivePageIndex; // Tu cherche l'index de l'onglet qui est actif
pc.Pages[page].TabVisible:=false; // tu le rend invisible
end;

pc est le nom que j'ai donn&#233; pagecontrol et fermer le nom de l'item de mon popupmenu

La puce

BenXbox · Answer

A d'accord, mais enfa&#238;te donc c'est pour rendre un TabSheet invisible quant le logiciel tourne, parce que enfa&#238;te c'est un genre d'explorateur Internet, et il faut que je puisse fermer les TabSheet.
Merci.


Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

euh bah rien de plus simple ben ! je suis meme sur que tu connais =) c'est l'inverse de "create" et donc "destroy" !!!

exemples d&#233;truisant la 2eme page :

TabSheet2.Destroy;

ou

PageControl1.Pages[1].Destroy;


bye !

BenXbox · Answer

Non mais c'est quant le logiciel et d&#233;mmarer.


Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

qui a dit le contraire ? je viens de te donner 2 choix de ligne de code
a mettre pendant l'execution de ton prog ! tu n'as meme pas test&#233; et tu
me dis deja que ce n'est pas &#231;a ?

si tu connais deja la r&#233;ponse, ne pose pas la question !

BenXbox · Answer

Mais le num&#233;ro de la TabSheet je ne la connais pas !
 Sa d&#233;pend de ce que fais le mec quant il navigue avec l'explorateur Internet.
Tu comprends mieux ?


Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

mais bien sur que tu connais le TabSheet en cours !

tu peux recup un integer avec PageControl.TabIndex ou le nom du TabSheet avec PageControl.ActivePage

BenXbox · Answer

Je voie pas du tout comment tu veut que je face sa. :(

Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

bon je viens de te faire une demo juste pour toi en 1heure, voila le resultat :

http://diabloporc.free.fr/delphi/demos/ie.zip

voila le screen :

http://diabloporc.free.fr/delphi/demos/ie.jpg

j'espere que &#231;a va t'aider !!

BenXbox · Answer

Bas merci, prendre une heure de son temp pour moi c'est trop sympa, merci beaucoup. :)

Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Answer

Merci beaucoup, par contre c'est quoi la d&#233;claration de "pc" ?


Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

Regarde au moins dans le haut du .pas !

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    newonglet: TMenuItem;

    closeonglet: TMenuItem;

    Panel1: TPanel;

    e_url: TEdit;

    Label1: TLabel;

    bt_ok: TBitBtn;

    sb: TStatusBar;

    pc: TPageControl;

    PopupMenu1: TPopupMenu;

    menu1: TMenuItem;

    ActionList1: TActionList;

    act_closeonglet: TAction;

    act_newonglet: TAction;

    Nouvelonglet1: TMenuItem;

    act_gourl: TAction;

    procedure pcContextPopup(Sender: TObject; MousePos: TPoint;

      var Handled: Boolean);

    procedure act_newongletExecute(Sender: TObject);

    procedure act_closeongletExecute(Sender: TObject);

    procedure act_gourlExecute(Sender: TObject);

    procedure e_urlKeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

BenXbox · Answer

A ok merci, sinon j'ai reussie &#224; mettre ton code en place, mais je me demander pour des buttons comme actuliser - page precendente et page suivante sa peut pas marcher.


Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

bah si ! et meme que c'est le WebBrowser qui gere &#231;a tout seul !

~.Refresh;

~.GoBack;

etc, je te laisse chercher ou je termine ton project en 2h avec gest

yion IE + Mozilla au choix sous le clic droit ? 

ps : ya un clic droit ki se fait sur les onglets et que sur les onglets =) pk pas gerer un double clic pour fermer !

BenXbox · Answer

Oui mais quant je mais WebBrowser1.GoBack; ou autres sa marche que pour la premiere fennetre.
Sinon j'ai pas compris ce que tu ma dit a la fin.


Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

et mon edit avec l'adresse ? il ne marche que pour le premier ? non !
il marche pour tous ! regarde comment j'ai fait pour gerer &#231;a et fait
idem.

pour les onglets je disais que :

&#231;a pourrait etre une bonne id&#233;e de gerer un double clic sur un onglet  = fermeture onglet !

je crois que je vais me le finir ce projet ... melanger du IE avec du
Mozilla, comme &#231;a les deux sont g&#233;r&#233;s, et pis anti-popup etc

BenXbox · Answer

A et comment on fais pour faire deux clique pour fermer un onglet ou une petite croix ?

Mon Site Web : http://Www.BenXbox.Fr.sT

BenXbox · Answer

C'est bon j'ai reussie pour les buttons page precedente, actualiser, et suivante.
Mais pour sa j'ai pas reussie : 
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool);
begin
if Command = CSC_NAVIGATEBACK then Button2.Enabled := Enable;
if Command = CSC_NAVIGATEFORWARD then Button4.Enabled := Enable;
end;


Mon Site Web : http://Www.BenXbox.Fr.sT

JulioDelphi · Answer

hahahah toi tu manges de la bouillie nan ? tu veux tu tout mach&#233; ! pas
envie de chercher ? d'apprendre ? une petite croix c simple, c'est deja
fait !!! mais moi j'ai mis "Fermer l'onglet en cours", a toi de "poser
un bouton" et mettre "act_closeonglet" dans la propri&#233;t&#233; "action' de ce
bouton. puis tu mets une belle crois sur le bouton =)

si tu veux une croix au meme endroit que dans firefox, a toi de retoucher le composant TPageControl.

Pour la gestion du double click, detecte comme moi a kelle endroit est
la souris (maxi 20 en Y pour mousepos) puis ds l'event "OnDblClick" tu
fais un "act_closeonglet.execute"

JulioDelphi · Answer

bah deja :

Bouton2 et Bouton4 &#231;a m'avance a quoi ? ils sont meme pas nomm&#233;s ! c un minimum ...

et puis "Enabled := Enable;" ... d&#233;sol&#233; mais tu devrais apprendre le delphi avant de te lancer dans ce projet  car le r&#233;sultat attendu est un Boolean (true ou false)

et au lieu de me dire "&#231;a marche pas" dit moi plutot "quand je fais &#231;a,
j'ai un erreur ici" "quand je clic la "&#231;a ne bouge pas alors que ... "
etc

PageControl & TabSheet

29 réponses

Votre réponse

Discussions similaires