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