Combobox dans un StringGrid

**BuzzLeclaire** · 21/02/2009, 10h16

Bonjour à tous,

J'essai d'utiliser un combobox à l'intérieur d'un stringrrid, grace à ce projet

unit Unit1;

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure ComboBox1Change(Sender: TObject);
    procedure StringGrid1TopLeftChanged(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultRowHeight := ComboBox1.Height;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
    R: TRect;
begin
 
  if (TStringGrid(Sender).Cells[2,aRow] <> '') And
    (aCol = 3) and
    (aRow >= StringGrid1.FixedRows) and
    (gdFocused in State) THEN
    with ComboBox1 do
    begin
      BringToFront;
      CopyRect(R, Rect);
      R.TopLeft :=     Form1.ScreenToClient(
                       StringGrid1.ClientToScreen(R.TopLeft));
      R.BottomRight := Form1.ScreenToClient(
                       StringGrid1.ClientToScreen(R.BottomRight));
      SetBounds(R.Left, R.Top, R.Right-R.Left, R.Bottom-R.Top);
    end;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with StringGrid1 do
    Cells[Col, Row] := ComboBox1.Text;
end;
 
procedure TForm1.StringGrid1TopLeftChanged(Sender: TObject);
var
  R: TRect;
begin
  with StringGrid1 do
      CopyRect(R, CellRect(Col, Row));
 
  with ComboBox1 do
  begin
    Visible := False;
    R.TopLeft :=     Form1.ScreenToClient(
                     StringGrid1.ClientToScreen(R.TopLeft));
    R.BottomRight := Form1.ScreenToClient(
                     StringGrid1.ClientToScreen(R.BottomRight));
    SetBounds(R.Left, R.Top, R.Right - R.Left, R.Bottom - R.Top);
  end;
 
  with StringGrid1 do
    if (TopRow <= Row) and (TopRow + VisibleRowCount > Row) then
       ComboBox1.Show;
end;
 
end.

Le probleme que je rencontre, est que si je tape du text en colonne 2 alors le combo s'affiche en colonne trois au clique, mais si par mégarde je donne le focus à une autre cellule de mon StringGrid et que je selectionne un items de mon combo qui pourtant est dans la colonne 3 la cellule devient tout bleu et reçois les infos de mon combo.

Comment puis-je eviter cela ?

**CharleLéo** · 21/02/2009, 10h23

Salut,

j'ai trouvé un coposant faisant cela :
http://www.vclcomponents.com/Delphi/...grid-info.html

A+

**BuzzLeclaire** · 21/02/2009, 16h51

Merci CharleLéo,

J'aimerais comprendre ma proposition pourquoi j'ai ce phénomène.

Si quelqu'un peux m'aiguiller merci.

**anapurna** · 22/02/2009, 18h19

salut

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
59
60
61
62
63
64
 
  TForm1 = class(TForm)
    StrGrd : TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    PickList : TStringList;
  Public 
     procedure OnGetEditStyle(TSender: TObject; ACol,ARow: Integer; var EditStyle: TEditStyle);
     procedure OnGetPickListItems(ACol, ARow: Integer;Items: TStrings);
     procedure OnEditButtonClick(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation 
 
 procedure TForm1.FormCreate(Sender: TObject);
var
 x,y : integer;
 str : String;
begin
  // on creer notre liste
  PickList := TStringList.Create;
  // on remplit la liste
  for x:=0 to pred(planning.colCount) do
    PickList.Add(Format('Item %d', [x]));
 
  // on assigned différent évènement
  StrGrd.OnEditButtonClick   := OnEditButtonClick;
  StrGrd.OnGetPickListItems := OnGetPickListItems;
  StrGrd.OnGetEditStyle      := OnGetEditStyle;
end;
 
procedure TForm1.OnGetEditStyle(TSender: TObject;
  ACol,ARow: Integer; var EditStyle: TEditStyle);
begin
  if ACol= 6 then
    EditStyle := esPickList;
  if ACol= 7 then
    EditStyle := esEllipsis;
  if ACol= 8 then
    EditStyle := esSimple;
end;
 
procedure TForm1.OnGetPickListItems(ACol, ARow: Integer;
  Items: TStrings);
begin
  Items.Assign(PickList);
end;
 
procedure TForm1.OnEditButtonClick(Sender: TObject);
var
  s : string;
begin
  with StrGrd do
    Cells[Col,Row] := Inputbox('Enter your data', 'Data:', Cells[Col,Row]);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  PickList.Free;
end;

@+ Phil

**BuzzLeclaire** · 24/02/2009, 09h11

Salut

Merci anapurna pour ton exemple, malheureusement je ne peux pas l'exploiter il est trop personnalisé.

Tanpis je laisse tombé je change de méthode.

Merci

**anapurna** · 24/02/2009, 17h34

salut

en quoi est t'il trop personnalisé ?
qu'elle est ta demande exacte peut peut on le généraliser pour qu'il colle a
ta demande

@+ Phil

**BuzzLeclaire** · 24/02/2009, 18h24

Merci de le proposer

Je ne peux pas faire cela

Code :

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

1
2
3
4
  // on assigned différent évènement
  StrGrd.OnEditButtonClick   := OnEditButtonClick;
  StrGrd.OnGetPickListItems := OnGetPickListItems;
  StrGrd.OnGetEditStyle      := OnGetEditStyle;

Il n'existe pas d'evenemtn de la sorte dans un StringGrid

donc j'ai pas pu tester ta proposition.

ce que je recherche c'est de faire marcher un combo dans un stringgrid cela je c'est le faire,
mais si je choisi un item et que le focus se trouve ailleur dans le StringGrid je récupére le text de l'item dans une autre cellule.

**Andnotor** · 24/02/2009, 21h16

OnDrawCell n'est pas le bon événement.
Le test doit être fait à l'entrée dans une cellule, OnSelectCell:

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
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
var
  R :TRect;
begin
  with TStringGrid(Sender) do
  begin
    Combobox1.Visible := (aCol = 3) and (Cells[2, aRow] <> '');
 
    if Combobox1.Visible then
    begin
      R := CellRect(aCol, aRow);
      OffsetRect(R, Left +2, Top +2);
      Combobox1.BoundsRect := R;
      Combobox1.ItemIndex  := Combobox1.Items.IndexOf(Cells[aCol, aRow]);
    end;
  end;
end;

**anapurna** · 24/02/2009, 21h57

salut

arf c'est pas bien compliquer

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
59
60
61
 
 TStringGrid = Class(Grids.TStringGrid)
  ...
  Private
    FDropdownRowCount   : integer;
    FOnEditButtonClick  : TNotifyEvent;
    FOnGetEditStyle     : TGetEditStyleEvent;
    FOnGetPickListItems : TOnGetPickListItems;
    procedure SetDropdownRowCount(value:integer);
    procedure SetOnEditButtonClick(value:TNotifyEvent);
    procedure SetOnGetPicklistItems(value:TOnGetPickListItems);
  protected
    function  CreateEditor: TInplaceEdit; override;
    function  GetEditStyle(ACol, ARow: integer): TEditStyle; override;
  public
    constructor Create(AOwner: TComponent); override;
 published
    property DropdownRowCount   : integer read FDropDownRowCount write SetDropdownRowCount default 8;
    property OnEditButtonClick  : TNotifyEvent read FOnEditButtonClick write SetOnEditButtonClick;
    property OnGetEditStyle     : TGetEditStyleEvent  read FOnGetEditStyle write FOnGetEditStyle;
    property OnGetPickListItems : TOnGetPickListItems read FOnGetPickListItems write SetOnGetPickListItems;
  end;
 
...
Constructor  TStringGrid.Create;
begin
  inherited Create(AOwner);
  FDropdownRowCount := 8;
end;
 
function TStringGrid.GetEditStyle(ACol,ARow:integer) : TEditStyle;
begin
  result := esSimple;
  if Assigned(FOnGetEditStyle) then
    FOnGetEditStyle(self, ACol, ARow, result);
  Invalidate;
end;
 
procedure TStringGrid.SetDropDownRowCount(value:integer);
begin
  FDropdownRowCount := value;
  if Assigned(InplaceEditor) then
    TInplaceEditList(InplaceEditor).DropdownRows := value;
  Invalidate;
end;
 
procedure TStringGrid.SetOnEditButtonClick(value:TNotifyEvent);
begin
  FOnEditButtonClick := value;
  if Assigned(InplaceEditor) then
    TInplaceEditList(InplaceEditor).OnEditButtonClick := value;
  Invalidate;
end;
 
procedure TStringGrid.SetOnGetPicklistItems(value:TOnGetPicklistItems);
begin
  FOnGetPicklistItems := value;
  if Assigned(InplaceEditor) then
    TInplaceEditList(InplaceEditor).OnGetPickListitems := value;
  Invalidate;
end;

@+ Phil

**BuzzLeclaire** · 01/03/2009, 16h51

Bien,

J'ai donc testé les 2 propositions.
La moindre des choses est de vous répondre.

Anapurna, malheureusement je n'arrive pas a faire fonctionner ta proposition toujours des problèmes dans la déclaration, là j'ai une erreure sur cette ligne :
FOnGetEditStyle : TGetEditStyleEvent;
Dommage car j'aurais aimé voir comment cela aurait marché

AndNotOr, effecivement l'évenement Selectcell marche beaucoup mieux, je l'avais d'ailleur trouvé, sauf que ma méthode etait un peu tirer par les cheveux. En ajoutant à ta proposition combobox1.BrintToFront cela fonctionne trés bien.

Je vous remercie à tous les 2.

Merci aux programmeurs qui se penchent sur nos soucis.

PS : Pour moi je note comme résolu.
PS Anapurna : Si t'avais un .pas entier peut-être que j'y arriverais lol...

**anapurna** · 01/03/2009, 20h36

salut

tester tel quel

une simple form avec 9 colonne

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
 
unit UTestEdit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids ;
 
type
 
  TGetEditStyleEvent = procedure (TSender:TObject; ACol,ARow:integer; var EditStyle:TEditStyle) of object;
 
  TStringGrid = Class(Grids.TStringGrid)
  Private
    FDropdownRowCount   : integer;
    FOnEditButtonClick  : TNotifyEvent;
    FOnGetEditStyle     : TGetEditStyleEvent;
    FOnGetPickListItems : TOnGetPickListItems;
    procedure SetDropdownRowCount(value:integer);
    procedure SetOnEditButtonClick(value:TNotifyEvent);
    procedure SetOnGetPicklistItems(value:TOnGetPickListItems);
  protected
    function  CreateEditor: TInplaceEdit; override;
    function  GetEditStyle(ACol, ARow: integer): TEditStyle; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property DropdownRowCount   : integer read FDropDownRowCount write SetDropdownRowCount default 8;
    property OnEditButtonClick  : TNotifyEvent read FOnEditButtonClick write SetOnEditButtonClick;
    property OnGetEditStyle     : TGetEditStyleEvent  read FOnGetEditStyle write FOnGetEditStyle;
    property OnGetPickListItems : TOnGetPickListItems read FOnGetPickListItems write SetOnGetPickListItems;
  end;
 
  TForm1 = class(TForm)
    planning: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    PickList : TStringList;
  public
    procedure OnGetEditStyle(TSender: TObject; ACol,ARow: Integer; var EditStyle: TEditStyle);
    procedure OnGetPickListItems(ACol, ARow: Integer;Items: TStrings);
    procedure OnEditButtonClick(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
 
{$R *.dfm}
 
Constructor  TStringGrid.Create;
begin
  inherited Create(AOwner);
  FDropdownRowCount := 8;
end;
 
function TStringGrid.CreateEditor: TInplaceEdit;
begin
  result := TInplaceEditList.Create(self);
  with TInplaceEditList(result) do
  begin
    DropdownRows := FDropdownRowCount;
    OnGetPickListItems := FOnGetPickListItems;
    OnEditButtonClick := FOnEditButtonClick;
  end;
end;
 
 
function TStringGrid.GetEditStyle(ACol,ARow:integer) : TEditStyle;
begin
  result := esSimple;
  if Assigned(FOnGetEditStyle) then
    FOnGetEditStyle(self, ACol, ARow, result);
  Invalidate;
end;
 
procedure TStringGrid.SetDropDownRowCount(value:integer);
begin
  FDropdownRowCount := value;
  if Assigned(InplaceEditor) then
    TInplaceEditList(InplaceEditor).DropdownRows := value;
  Invalidate;
end;
 
procedure TStringGrid.SetOnEditButtonClick(value:TNotifyEvent);
begin
  FOnEditButtonClick := value;
  if Assigned(InplaceEditor) then
    TInplaceEditList(InplaceEditor).OnEditButtonClick := value;
  Invalidate;
end;
 
procedure TStringGrid.SetOnGetPicklistItems(value:TOnGetPicklistItems);
begin
  FOnGetPicklistItems := value;
  if Assigned(InplaceEditor) then
    TInplaceEditList(InplaceEditor).OnGetPickListitems := value;
  Invalidate;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
 x : integer;
begin
  PickList := TStringList.Create;
  for x:=0 to pred(planning.colCount) do
    PickList.Add(Format('Item %d', [x]));
 
  planning.OnEditButtonClick  := OnEditButtonClick;
  planning.OnGetPickListItems := OnGetPickListItems;
  planning.OnGetEditStyle := OnGetEditStyle;
end;
 
procedure TForm1.OnGetEditStyle(TSender: TObject;
  ACol,ARow: Integer; var EditStyle: TEditStyle);
begin
  if ACol= 6 then
    EditStyle := esPickList;
  if ACol= 7 then
    EditStyle := esEllipsis;
  if ACol= 8 then
    EditStyle := esSimple;
end;
 
procedure TForm1.OnGetPickListItems(ACol, ARow: Integer;
  Items: TStrings);
begin
  Items.Assign(PickList);
end;
 
procedure TForm1.OnEditButtonClick(Sender: TObject);
begin
  with planning do
    Cells[Col,Row] := Inputbox('Enter your data', 'Data:', Cells[Col,Row]);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  PickList.Free;
end;
 
end.

@+ Phil

**BuzzLeclaire** · 01/03/2009, 21h07

Merci anapurna.

La ca fonctionne bien.

Que dire sa semble parfait, le coup du ellipsis cela fait vraiment bien.
Ta proposition dépasse largement mon besoin mais il y réponds parfaitement.

Tu t'es surpassé sur ce coup là.

Merci.

**chaplin** · 02/03/2009, 11h33

En faisant copier coller du code d'Anapurna, en Delphi 2009, le TStringGrid ne réagit absolument pas. C'est pour ça que je dis que je me suis pris la tête dessus. J'aimerais savoir si d'autres possesseurs de Delphi 2009 ont testé le code. Je suis parvenu à le faire fonctionné, mais après quelques modifications du code.

**anapurna** · 02/03/2009, 12h10

salut

je n'est pas essayé avec 2009
c'est quoi ta prise de tête ?

@+ Phil

Combobox dans un StringGrid

Composants VCL Delphi

Vue hybride

Discussions similaires

Partager

Partager