Einzelnen Beitrag anzeigen

Benutzerbild von Aurelius
Aurelius

Registriert seit: 29. Jan 2007
Ort: Erfurt
753 Beiträge
 
Delphi 7 Personal
 
#1

"Desktop anzeigen"-Problem

  Alt 7. Jan 2008, 22:41
Hi DPler

in meinem programm ändert sich die Caption der Mainform (hier wird in einem "animierten" TExt der name einer Musikdatei angezeigt. Da ich aber auch ein Deskband nutze muss das Fenster in minimiertem Zustand einen Konst. Namen besitzen.

Delphi-Quellcode:
procedure TfrmMain.Minimieren(Sender : TObject);
var info : tPlaylistenitem;
begin
  Minimiert := not minimiert;
  if (BassDllPlayer1.Status = sndPlaying) and not minimiert then
  begin
    info:=Manager.GetPlayListenItem(frmPlaylist.lsbPlaylist.items, TrackNR);
end;

Application.OnMinimize := Minimieren;
Application.OnRestore := Minimieren;
In einem Timer wird dann immer die jeweilige Caption gesetzt. Ich habe aber bemerkt dass "Desktop anzeigen" wohl kein OnMinimite auslöst. Wie könnte ich das lösen? (außer getrennte Prozeduren für Restore und minimze)
Jonas
  Mit Zitat antworten Zitat