Einzelnen Beitrag anzeigen

steve-allround

Registriert seit: 4. Jan 2004
45 Beiträge
 
#15

Re: Wochentag bei PageControl den entsprechenden TabSheet an

  Alt 10. Jan 2004, 16:49
Danke aber es funktioniert nicht...
ich zeige mal....

Bild wie es aussieht in der Anlage....

Quelltext

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
  var
  sExePath: string;
begin
PageControl1.ActivePageIndex := DayOfTheWeek(now)-1;




sExePath := ExtractFilePath(Application.ExeName);

 MediaPlayer1.FileName:=sExePath + 'dll/vorspann.wma';
MediaPlayer1.open;
MediaPlayer1.Play;


  {Jahr}
{Speichern}
memo13.Lines.LoadFromFile(sExePath + 'settings/jahr1.dll');
u.s.w.
Angehängte Grafiken
Dateityp: bmp 1.bmp (345,6 KB, 17x aufgerufen)
  Mit Zitat antworten Zitat