COM Events

[Brainshock]

Keine Ahnung ob du das meinst, aber hier mal ein Beispiel mit Hilfe der Powerpoint_TLB.


Powerpoint_TLB.pas

Delphi-Quellcode:

type
  TPowerPointApplicationSlideShowOnPrevious = procedure(ASender: TObject; const Wn: SlideShowWindow) of object;

TPowerPointApplication = class(TOleServer)
private
  FOnSlideShowOnPrevious: TPowerPointApplicationSlideShowOnPrevious;
published
  property OnSlideShowOnPrevious: TPowerPointApplicationSlideShowOnPrevious 
    read FOnSlideShowOnPrevious write FOnSlideShowOnPrevious;
end;

Unit1.pas

Delphi-Quellcode:

TForm1 = class(TForm)
private
  FPowerpointApp: TPowerPointApplication;
  procedure DoSlideShowOnPrevious(ASender: TObject; const Wn: SlideShowWindow);
public  
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPowerpointApp:= TPowerPointApplication.Create(Self);
  FPowerpointApp.OnSlideShowOnPrevious:= DoSlideShowOnPrevious; // <- Event zuweisen
end;

procedure TForm1.DoSlideShowOnPrevious(ASender: TObject; const Wn: SlideShowWindow);
begin
  // mache was beim Wechsel...
end;