tStringGrid und In-Place-Editor Problem

[Blup]

Problematisch finde ich deinen Ansatz die Daten im Grid zu halten.
Eigentlich benötigst du doch nur ein Grid (das die Daten je nach Einstellung in unterschiedlicher Form darstellt) und Datenobjekte die die genauen Daten beinhalten. Ich würde mit TDrawGrid und TObjectList mit selbst definierten Zeilenobjekten arbeiten. Warum reicht dir OnGetText und OnSetText nicht aus, du kannst doch in beiden Events auf Col und Row des Grids zugreifen? Und was hat die gerade bearbeitete Zelle mit der Maus zu tun?

Code:

OnDrawCell     Daten in der aktuell gewünschten Weise darstellen
OnGetEditText  Daten für Row und Col vor Bearbeitung bereitstellen, oder mit Abort abbrechen
OnSetEditText  Daten für Row und Col nach Bearbeitung entgegennehmen oder verwerfen
OnKeyDown      eventuell Steuerung von Col und Row (siehe auch EditorMode)

[BoolString]

Du hast selbstverständlich Recht, das die Datenhaltung im Grid nicht unbedingt die beste Wahl ist. Im Normalfall befinden sich die Matritzen und Tabellen auch jeweils in einem eigenen Objekt. Der Editor ist nur dazu da, damit man die Werte kontrollieren kann und gegebenenfalls leicht korrigieren. Dabei stört mich halt das Problem der Nachkommastellen. Ich habe diese Form gewählt, weil ich dann nicht ein extra Datenhaltungsmodell schaffen muss, welches zusammen mit dem Stringgrid aktualisiert wird (z.B. Spalten verschieben).

Die Maus spielt eine Rolle in der Art, daß sie die Parameter des Options-Set des StringGrids steuert. Damit wird die Unterscheidung realisiert zwischen Spalten/Zeilenverschieben, Indexfeldern, Zeilen/Spaltentiteln und Datenfeldern, die sich alle ein wenig unterscheiden. Befinde ich mich über einer Datenzelle ist natürlich goEditing im Set. Hole ich jetzt mit OnGetEditText/OnSetEditText eine Editierung starte, passiert (meiner Überlegung nach) folgendes:
- String wird geholt und im In-Place-Editor dargestellt. - Der erste Tastendruck löst SetText aus. - Der Text wird aktualisiert und neu bereitgestellt (dann aber wieder komplett markiert). - MouseOver wird aktualisiert und wenn die jetzt nicht mehr über einer bearbeitbaren Zelle steht, dann fehlt goEditing und Editierung wird kalt abgebrochen....


Formulieren wir das ursprüngliche Problem doch mal anders:
Wie setze ich einen Editor auf eine StringGridzelle und bekomme den Wert dieses Editors zurück, NACHDEM der Nutzer den Editor beendet hat (z.B. Return drückt, eine Zelle weiter 'tabt', oder ESC drückt).


Jan



PS: Schönen Dank, aber die angehängten Properties kenne ich bereits. Arbeite seit gut 15 Jahren mit StringGrids in Delphi (bzw. seinen Vorläufern ) Allerdings habe ich mich noch nie um das hier angesprochene Problem kümmern dürfen/wollen/müssen....

[ibp]

Hi,

ich war auch mal am leidigen In-Place-Editoren Problem programmieren, bis ich bemerkt habe, dass der Kosten-Nutzen Faktor eher ungünstig lag.
Meine Lösung war dann eine fertige zu kaufen. TAdvStringGrid von TMS Software gibt es für ca. 100 EUR. (ich kann empfehlen TMS Component Pack ca 200 EUR)
Für Probleme gibt es einen sehr guten Support.

Grüße

ibp

[plusplus]

Ich wurde im hintergrund ein nicht sichbares TEdit control gebrauchen und wenn der mouse ueber die zeile kommt bringst du es nach vorn um zu bearbeiten. Da hast du auch einen OnExit event.

Ich personlich halte nicht viel von dem eingebautem InplaceEdit, wenn ich StringGrid gebrauche mache ich immer diesen trick.

Ich hoffe dass hilft.

[BoolString]

Sorry, daß meine Antwort so lange gedauerthat. Hab im schwedischen Nirgendwo gesessen und ein sporadisch aufploppends WLAN genutzt. Bin aber inzwischen wieder da...


@ibp
Danke für den Hinweis. Ich bin selbst schon einmal über auf den Link gestoßen; habe aber ob der Vielzahl von käuflich erwerbbaren StringGrid Komponenten damals etwas den Überblick verloren. Inzwischen habe ich mir das Manual runtergeladen und bin doch von der Mächtigkeit etwas angetan. Habe die gut 200 Seiten zwar bisher nur überflogen. Aber auf lange Sicht scheint das eine Option zu sein.
Mir geht es hier aber auch ein wenig darum zu lernen wie man diesen verflixten InplaceEditor richtig anspricht. Ich verstehe solche Sachen ehrlich gesagt am Besten, wenn ich Code dazu habe; bin inzwischen etwas eingerostet und begreife an Hand der aufgezeigten Herangehensweise dann doch etwas schneller

@plusplus
Ganz klar ist mir noch nicht wie du das Edit ansprichst. Ich denke mal, daß du nicht so eine oben im Formular gelagerte Eingabezeile wie unter Excel meinst. Bohrst du dann das Create auf und schickst ein Destroy beim onExit los? Hast du da evtl. ein paar Zeilen Quelltext?


Ich habe gerade (relativ vergeblich) versucht mit einem eigenen (KlassenCracker-)StringGrid eine entsprechende Funktionalität zu erzeugen. Aber irgendwie brachte das auch nicht den gewünschten Erfolg. Zudem ist es auch ein kleines Monster geworden:

Delphi-Quellcode:

type
 tTrickGrid = class;
 tExitCellEvent = Procedure (Sender: tTrickGrid; aCol, aRow: Integer; const edittext: string) of object;


  tTrickGrid = class (tStringGrid)
  private
    FExitCell : TExitCellEvent;
  protected
    Function  CreateEditor: TInplaceEdit; override;
    Procedure ExitCell (const edittext: String; aCol, aRow: Integer); virtual;
  public
    property  InplaceEditor;
  published
    property  OnExitCell: TExitCellEvent read FExitCell write FExitCell;
  end;


  TForm1 = class (TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
      var Value: string);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


type

  tTrickInplaceEditor = class (tInplaceEdit)
  private
    FLastCol, FLastRow: Integer;
    procedure WMKillFocus(var msg: TMessage); message WM_KILLFOCUS;
    procedure WMSetFocus(var msg: TMessage); message WM_SETFOCUS;
  public
  end;


// ----------------------------------------------------------tTrickInplaceEditor

procedure tTrickInplaceEditor.WMKillFocus (Var msg: TMessage);
begin
  tTrickGrid(Grid).ExitCell (Text, FLastCol, FLastRow);
  inherited;
end;


procedure tTrickInplaceEditor.WMSetFocus (Var msg: TMessage);
begin
  FLastCol := tTrickGrid (Grid).Col;
  FLastRow := tTrickGrid (Grid).Row;
  inherited;
end;


// -------------------------------------------------------------------tTrickGrid
Function tTrickGrid.CreateEditor: tInplaceEdit;
begin
  result := tTrickInplaceEditor.Create (Self);

end;


procedure tTrickGrid.ExitCell (Const EditText: String; aCol, aRow: Integer);
begin
  If Assigned (fExitCell) THen
  Begin
    fExitCell (Self, aCol, aRow, EditText);
    fExitCell (Self, 0, 0, EditText);
  end;
end;

// -------------------------------------------------------------------StringGrid


procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
begin
//  tTrickGrid (StringGrid1).SetEditText (aCol, aRow, Value);
//  tTrickGrid (StringGrid1).CreateEditor;
end;

Vielleicht kann mir ja jemand hierbei noch einmal erklären, wie ich meinen Gedankengang sortieren müsste, damit so etwas funktioniert...

Beste Grüße

Jan

[himitsu]

Wie wäre es mit OnGetEditText und OnSetEditText?

[BoolString]

Hallo himitsu,

mein Problem ist, daß ich gerne in 2 StringGrids den gleichen Inhalt haben möchte. Eines ist relevant, eines ist eine reduzierte Darstellung (gerundete Werte). Wenn ich mit GetText den Zellinhalt aus dem relevanten Grid für den InplaceEdit hole, habe ich das Problem, daß ich mit dem SetText keine vernünftige Darstellung hinbekomme. Der Text wird in den Zellen überschrieben, neu markiert, und der Editor springt wieder an und holt aus dem einen Grid den dort stehenden Wert. Wenn man im anderen Grid aber die Eingabe gemacht hat, dann geht diese verloren. Zudem habe ich noch einige Steuerungen bezüglich der Position des Mauszeigers, wodurch es sein kann, daß goEditing nicht mehr in Options enthalten ist. Siehe auch mein 2. Posting...

Jan