Also ich hab folgendes Problem:
In einem OleContainer hab ich Excel eingebunden.
Code:
olecontainer1.CreateObjectFromFile('D:\ABC.xls',false);
olecontainer1.DoVerb(ovprimary);
book:=olecontainer1.OleObject;
xlapp:=book.application;
sheet:=book.activesheet;
Nun möchte ich in dem Excelblatt Zeilen in 3er Gruppen verschieben. d.h. es gehören immer 3 Zeilen zueinander, und ich möchte immer 3 gleichzeitig verschieben. Dazu habe ich auf meiner Form1 an der Seite kleine Buttons platziert mit der Height von eben 3 Zeilen. Durch die soll halt die Auswahl erfolgen. Wie ich das mit dem kopieren realisiere, ist jetzt erstmal zweitrangig. Aber:
Das Excelblatt ist größer als der Container. Demzufolge sind Buttons außerhalb des sichtbaren Bereichs. Daher müsste nun beim Scrollen im ExcelSheet, die Buttons auf der Form mit hochwandern.
Ich hab aber keine Kontrolle mehr über das Mausereignis. Denn sobald das Excelblatt im Container geladen ist, funktioniert die OleContainer1.MouseMove nicht mehr.
Die Maus ist jetzt wohl in Excel. Wie kann ich nun auf das Excel-Scrollereignis reagieren?
Ich denk mal, das Problem ist, die Maus-Botschaft der XlApp abzufangen. Aber da hab ich nun gar keinen Plan von.
Gruß, Bernd