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  (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