Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#2

Re: TAdvStringGrid und Grouping

  Alt 29. Aug 2009, 02:12
Ohne jetzt AdvStringGrid zu kennen würde ich mal sagen, du müstest den Spaltennamen anstelle der Nummer abfragen:
Delphi-Quellcode:
procedure TForm1.aGridGetEditorType(Sender: TObject; ACol,
  ARow: Integer; var AEditor: TEditorType);
var
  colname:string;
begin
   // wie du genau an den Spaltennamen herankommst liegt bei Dir
   // so könnte es aussehen
   colname := TAdvStringGrid(Sender).Columns[ACol].Caption;
// if ((ACol = 2) or (ACol = 5) or (ACol = 8)) and ((ARow = 10) or (ARow = 20)) then
   if StrIsOneOf(colname, ['Bruttopreis', 'Nettopreis', 'Artikelnr']) and ((ARow = 10) or (ARow = 20)) then
   begin
StrIsOneOf() ist eine kleine nützliche Funktion aus der JCL um die If-Bedingung zu vereinfachen.
fork me on Github
  Mit Zitat antworten Zitat