Hallo,
ich habe da ein Problem mit dem OleContainer.
Es sei ein OleContainer und ein Edit-Feld auf einer Form.
mit dem folgenden Quelltext lade ich eine Excel-Datei in den Container. Klicke ich aber auf das Edit-Feld, dann wird der OleContainer weiß und ich muss erst wieder mit Doppelclick diesen aktivieren.
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
var
s: string;
i: byte;
begin
s := paramstr(0);
s := ExtractFileDir(s) + '\';
Statusbar1.Panels.Items[1].Text := s;
olecontainer1.CreateObjectFromFile(s + 'vorlage.xls', false);
olecontainer1.DoVerb(ovprimary);
Book := olecontainer1.OleObject;
xlapp := book.application;
sheet := book.activesheet;
For i:=1 to 2 do
xlapp.CommandBars['Worksheet Menu Bar'].Enabled := False;
for i := 1 to xlapp.CommandBars.count do
xlapp.CommandBars[i].Enabled := FALSE;
xlapp.DisplayFormulaBar := true;
aktiv:=true;
beendet:=false;
end;
Woran liegt das?
Für eine Lösung wäre ich dankbar.
mfg
Holger