TTrayIcon will nicht funktionieren

[Tyler]

>> TurboDelphi <<

Ahoi,

hab mir schon die Beispielanwendung bei Borland runtergeladen, und den NEwsbeitrag gelesen, und hier im Forum gesucht - aber nichts hilft mir wirklich weiter.

Ich hab also meine Form, und darauf ein Trayicon. TrayIcon.Visible ist TRUE, ein Bild wurde als Icon zugeordnet und OnCreate wird Application.Minimize der Prozeudre AppMInimize zugeordnet, die wie folgt aussieht:

Delphi-Quellcode:

procedure Tf_main.AppDeActivate(Sender: TObject);
begin
  AlphaBlendValue := 175  ;
end;

procedure Tf_main.AppMinimize(Sender: TObject);
begin
  Application.Minimize;
  f_main.Hide;
end;

procedure Tf_main.AppActivate(Sender: TObject);
begin
  AlphaBlendValue := 255;
end;

procedure Tf_main.FormCreate(Sender: TObject);
var
  d: PChar;
  v: Pointer;
  l: DWord;
  cData: array [0..2048] of char;
  cExe: array [0..255] of char;
begin
  Application.OnDeactivate := AppDeActivate;
  Application.OnActivate := AppActivate;
  Application.OnMinimize := AppMinimize;

end;

(die anderne Procs rein informativ, könnte ja sein, dass die sich gegenseitig behindern.

Tja nun. Was passiert? Nix.

Muss ich noch irgendwo was einstellen,zuordnen oder wie auch immer?

Danke euch!

[diabox]

Habe die Komponente leider nicht, darum kann ich nur vermuten, dass das TrayIcon sich nicht darum kümmert ob das MainForm minimiert wird oder nicht mehr sichtbar ist. Wie du das löst kann ich dir nicht sagen, vllt. gibt es ja ne Variable von TTrayIcon.MinimizeToTray die du auf True setzen musst oder du musst selbst TTrayIcon.Minimize() oder sowas aufrufen.

Ich kann dir aber die CoolTrayIcons sehr empfehlen. Die funktionieren prima und da hast du dann eine Variable (MinimizeToTray) für die Einstellung.

Torry: CoolTrayIcon

[Tyler]

Hallo diabox

Danke für dein Antwort!

Diese Eigenschaft gibt es leider nicht, ich hab schon gesucht. So kenn ich das ja eigentlich auch. Mit CoolTrayIcon hab ich ja auch schon gearbeitet. Leider lässt meien DelphiVersion aber keine VCL zu, deshalb wollte ich das eigenntlich so gelöst bekommen

[Piro]

Moin,

wollte mal nachfragen, ob du schon eine Lösung gefunden hast, denn ich stehe jetzt vor dem gleichem Problem?

Gruß, Sven

[Muetze1]

Zitat von Tyler:

Leider lässt meien DelphiVersion aber keine VCL zu, deshalb wollte ich das eigenntlich so gelöst bekommen

Wie, kein VCL? Das kapier ich nicht

Ansonsten: TrayIcon ohne Komponente

[HalloDu]

Mit keine VCL meint er wahrscheinlich, dass er keine Fremd-Packages instellieren kann, weil er vielleicht Turbo Delphi Explorer hat...

Ist nur ne Vermutung.

[Muetze1]

Zitat von HalloDu:

Mit keine VCL meint er wahrscheinlich, dass er keine Fremd-Packages instellieren kann, weil er vielleicht Turbo Delphi Explorer hat...

Ist nur ne Vermutung.

Hatte ich mir schon gedacht, wollte nur auf den Ausdruck hinweisen. Und da ich mir das auch schon gedacht hatte, habe ich auch den entsprechenden Link dazu...

[t.schnabel]

OnDeactivate:
TrayIcon1.Visible:=false;

OnActivate:
TrayIcon1.Visible:=true;

Damit kann man das Icon in der TNA anzeigen, bzw. verstecken!