Ereignisse

[michback]

Das hatte ich bereits gemacht leider ohner Erfolg

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids, jpeg, ExtCtrls, OleCtrls, WMPLib_TLB,
  AXVLC_TLB, Outline, DirOutln, FileCtrl, ShlObj, ActiveX, Registry;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Image1: TImage;
    TabSheet8: TTabSheet;
    PageControl4: TPageControl;
    TabSheet9: TTabSheet;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    TabSheet10: TTabSheet;
    PageControl3: TPageControl;
    TabSheet5: TTabSheet;
    StringGrid1: TStringGrid;
    TabSheet6: TTabSheet;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
      var Resize: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);

    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure FormResize(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet8Show(Sender: TObject);







  private
    { Private-Deklarationen }
    procedure testlauf(sender: TObject);

  public
    { Public-Deklarationen }
    end;

Delphi-Quellcode:

var
  Form1: TForm1;
  Vorschauname1,Vorschauname2,Vorschauname3,row:string;
  oi:integer;
  ausschalt:boolean;
  VLCPlugin1: TVLCPlugin;
  blVLCPluginFound: boolean;
  mediaplayerPluginFound:boolean;
  WindowsMediaPlayer1: TWindowsMediaPlayer;

Oder muss ich dem Windowsmediaplayer die procedure zuordnen ?















----------------------------------------
Die Class wäre ja TWindowsmediaplayer aber so kann ich die Procedur nicht zuordnen.

Delphi-Quellcode:

 type
  TWindowsMediaPlayer1 = class(TWindowsMediaPlayer)
  private
    procedure testlauf(sender: TObject);
  end;

Ich denke mal ich habe da einen Denkfehler wie an dieser Stelle Delphi arbeitet.