TTrayIcon

[Maik81SE]

Moin zusammen,

erst mal gesundes Neues jahr 2014 euch allen wünsche.

Nun zum Thema, ich weiß, es wurde schon mal irgendwo, ~wie geschrieben, jedoch kann ich VIELE um nicht zu sagen alle Beiträge nicht mehr lesen.

Ich will für meine Anwendungen ein Systemstray einbetten, habe mich auch bei GooGle belesen und bin u.a. über http://wiki.freepascal.org/TrayIcon/de gestolpert.

Aktuell läuft bei mir der Code wie folgt.

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('Img'+PathDelim+'elv.gif');
  Caption := 'IPS 1 by ELV';
  Label1.Caption:= 'IP - Adresse';
  ComboBox1.Text:= '';
  Label2.Caption:= 'Port';
  ComboBox2.Text:= '';
  Button1.Caption := '&Verbinden';
  Button2.Caption := '&Trennen';
  Button3.Caption := '&Beenden';
  Memo1.Clear;
  TrayIcon1.Icon.LoadFromFile('Img'+PathDelim+'elv.ico');
  TrayIcon1.ShowIcon:= True;
  TrayIcon1.Hint:= 'IPS 1 by ELV geladen';
  TrayIcon1.Show;
end;

Ich bin sogar schon am Überlegen, dies in C++ via CodeBlock schreibe und da nur Startanwendung je nach Programm ändere.

[Komoluna]

Frohes Neujahr erstmal an alle...

Was ist denn dein Problem?
du schreibst nur den Code und was du bereits gefunden hast, aber nicht wo dein Problem liegt...

[Maik81SE]

Frohes Neujahr erstmal an alle...

Was ist denn dein Problem?
du schreibst nur den Code und was du bereits gefunden hast, aber nicht wo dein Problem liegt...

Sry, danke für den Wink mit der Steinmauer... Ne das Problem, was ich dabei habe, das die anwendung gestartet wird, jedoch der im Systemtray nix angezeigt wird... Hab nach wirvor nur meine Dropbox, Mail, WLAN stehen. Andere Systemstray. erscheinen nicht und ob bei Windows 7 was zu sehen ist, weiß ich nicht, da im mom mein WIn7 Rechner nicht bei mir steht.

[Michl]

Code: Alles auswählen

  TrayIcon1.Icon.LoadFromFile('...');
  TrayIcon1.ShowIcon:= True;
  TrayIcon1.Hint:= 'IPS 1 by ELV geladen';
  TrayIcon1.Show;

bei MainForm.OnCreate: läuft bei mir, eben auf Win7 Lazarus 1.0.12 getestet (Falls Du das nur wissen wolltest).

Es gibt noch ein Bsp. unter ...\Examples\TrayIcon\... , das läuft bei mir ebenfalls problemlos.

[m.fuchs]

Das ist mal wieder eine klassische, wirre Fragestellung. Könntest du noch dazu schreiben auf welchem System du Probleme hast. Auf welchem du nicht getestet hast, steht ja schon da.

[Maik81SE]

Code: Alles auswählen

 Es gibt noch ein Bsp. unter ...\Examples\TrayIcon\... , das läuft bei mir ebenfalls problemlos.[/quote]

Stimmt da war ja noch was... der Beispielordner. Doof, wenn man den nicht im Filter hat.  :roll: 
Jedenfalls habe ich auch damit kein erfolg. und das finde ich doch arg bescheiden.

[quote="m.fuchs"]Das ist mal wiieder eine klassische, wirre Fragestellung. Könntest du noch dazu schreiben auf welchem System du Probleme hast. Auf welchem du nicht getestet hast, steht ja schon da.[/quote]

Jopp. Ich Programmiere unter Ubuntu 13.04 - 64bit.
Zielsysteme sollen sein WIn7,
Ubuntu ab 10.04 und Endebian via Gnublin.org

[pluto]

Du musst Enabled auf True stellen. Ich bin mir gerade nicht sicher wie die Variable genau heißt, aber du musst auf jedenfall eine Variable erst auf True stellen.

[Maik81SE]

Ich glaub ich weiß, was du meinst

Code: Alles auswählen

TrayIcon1.Visible:= True;

Vielleicht hilft das Projekt als Anhang selbst eher...

Grüße Maik

[m.fuchs]

Jopp. Ich Programmiere unter Ubuntu 13.04 - 64bit.

Das dürfte dann ein Ubuntu-Problem sein. Ich kann mich errinnern, dass ich in aktuellen Versionen davon auch kein Systray hatte.

Das könnte helfen:
http://www.webupd8.org/2013/05/how-to-g ... ck-in.html

Ist aber nur eine Einzelfalllösung, anscheinend muss die LCL erst an Unity angepasst werden: http://www.webupd8.org/2013/02/unity-no ... stray.html

[pluto]

Bei mir läuft es Problemlos unter Ubuntu 12.04 und unter früheren Versionen lief es auch. Wobei: Ich verwende als Desktop auch KDE.

Genau Visible hieß die, gar nicht Enabled...

[m.fuchs]

Bei mir läuft es Problemlos unter Ubuntu 12.04 und unter früheren Versionen lief es auch. Wobei: Ich verwende als Desktop auch KDE.

Das tritt nur in Verbindung mit Unity auf. Wenn du KDE nutzt läuft alles.