Excel im OleContainer bei Focusverlust nicht mehr sichtbar

[BrunoT]

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

[BrunoT]

Halllloooo,


darf ich noch mal fragen?

mfg

Holger