PageControl + Popup -> focus sur la page

**qi130** · 18/07/2008, 11h44

Hello tous les non vacanciers

Voilà mon souci du moment:

un page control dispose d'un popup (ajouter/supprimer un onglet)

Je souhaite que lors du popup, l'onglet pointé devienne la page active.

Ca doit normalement se passer dans le OnContextPopup du PageControl, mais quoi coder ?

Merci d'avance.

**evarisnea** · 19/07/2008, 09h28

tu peux utiliser la methode IndexOfTabAt du PageControl lors de l'évènement OnContextPopup
exemple, une form avec un pagecontrol et un popupmenu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls;
 
type
  TForm1 = class(TForm)
    pgc_1: TPageControl;
    pm1: TPopupMenu;
    Ajouter1: TMenuItem;
    Supprimer1: TMenuItem;
    ts_1: TTabSheet;
    procedure Ajouter1Click(Sender: TObject);
    procedure Supprimer1Click(Sender: TObject);
    procedure pgc_1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Ajouter1Click(Sender: TObject);
var
  ts : TTabSheet;
begin
  ts := TTabSheet.Create(pgc_1);
  ts.PageControl := pgc_1;
  ts.Caption := 'Page '+ IntToStr(pgc_1.PageCount);
end;
 
procedure TForm1.pgc_1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  i:Integer;
begin
  i := pgc_1.IndexOfTabAt(MousePos.X, MousePos.Y);
  if i >= 0 then
    pgc_1.ActivePageIndex := i;
end;
 
procedure TForm1.Supprimer1Click(Sender: TObject);
begin
  if Assigned(pgc_1.ActivePage) then
    pgc_1.ActivePage.Free;
end;
 
end.