Daten von Excel über das Clipboard in AdvStringgrid einfügen

[norwegen60]

Hallo zusammen,

es ist kein Problem, einen markierten Excel-Bereich per Ctrl-C / Ctrl-V in ein bestehendes TAdvStringGrid zu kopieren. Über OnBeforePasteClipboardCell will ich sicherstellen, dass nur zulässige Daten kopiert werden.
Zwei Probleme für die meine Lösung nicht funktioniert und wo ich keine Lösung habe:

• Einfügen soll nur möglich sein, wenn sich Anwendung im EditMode befindet. Wenn ich das so mache wie unten, kommt mir für jedes Feld im Clipboard diese Meldung. Ich möchte sie natürlich nur für das gesamte Clipboard einmal
• Dringlicher ist das Problem, dass automatische eine neue Zeile ans Grid angehängt wird, bevor dieser Aufruf kommt. Von daher ist die Abfrage
  Delphi-Quellcode:

   (ARow < sgGrid.RowCount)

  immer erfüllt.

Hier meine Überprüfung:

Delphi-Quellcode:

procedure TfrmTestgrid.sgDataClipboardBeforePasteCell(Sender: TObject; ACol, ARow: Integer; var Value: string; var Allow: boolean);
// *****************************************************************************************************************************************
var
  rValue: Double;

begin
//  if not bEditMode and btEdit.Enabled then
//    M_Messagedlg('Copy&Paste is only possible in Edit mode.', mtConfirmation, [mbOK], 0);

  Allow := bEditMode and                                  // Editierung muss aktiviert sein
    (sgGrid.Col in [6 .. 12]) and (sgGrid.Col > 0) and    // Cursor muss in editierbarem Bereich stehen
    (ACol in [6 .. 12]) and (ARow > 0) and                // Zielzelle muss in editierbarem Bereich liegen
    (ARow < sgGrid.RowCount) and                          // Nur so viele Zeilen wie schon vorhanden füllen
    TryStrToFloat(sgGrid.Cells[ACol, ARow], rValue) and   // Zielzelle muss bereits Zahl enthalten
    TryStrToFloat(Value, rValue);                         // Kopierter Wert muss Zahl sein
end;

Danke für jeden Lösungsvorschlag

Grüße
Gerd

[peterbelow]

Du machst deine Tests eventuell zu spät. Realisiere die Paste-Funktion über eine TAction, dann kannst Du die Tests im OnUpdate-Event der Action machen und die Action disablen wenn der Inhalt der Zwischenablage nicht deinen Anforderungen entspricht oder der momentane Kontext in der Anwendung nicht paßt.

[norwegen60]

Hallo,

ich habe doch noch Lösungen gefunden

• Das Einfügen fange ich im OnKeydown-Ereignis ab wo ich auf Ctrl-V prüfe
• Gegen das Anlegen von Zeilen gibt es die Eigenschaft Navigation.AllowClipBoardRowGrow. In Navigation hatte ich zuvor nicht gesucht.

Danke trotzdem für deinen Lösungsansatz

Grüße
Gerd