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;