| Autor |
Beitrag |
5M17H 
Beiträge: 164
XP, Vista32, bald auch Vista64
PHP(3/5), Delphi(2), Java(1), C(3), C#(1)
|
Verfasst: Di 26.06.07 14:42
|
|
Mitmischer 1703
Beiträge: 754
Erhaltene Danke: 19
Win 7, Debian
Delphi Prism, Delphi 7, RAD Studio 2009 Academic, C#, C++, Java, HTML, PHP
|
Verfasst: Mi 03.10.07 09:53
Wo finde ich denn das TTrayIcon???
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 03.10.07 09:59
Beim (kostenlosen) neuen Turbo Delphi ist das dabei, ansonsten musst du dir eine ähnliche Komponente suchen, bei der JVCL ist sowas zum Beispiel dabei, aber die geht mit Delphi 3, wie bei dir steht, wohl nicht.
CoolTrayIcon sollte aber funktionieren, das gibts z.B. hier ganz oben auf der Seite:
subsimple.com/delphi.asp
Zuletzt bearbeitet von jaenicke am Do 04.10.07 10:16, insgesamt 4-mal bearbeitet
|
|
Critter
Beiträge: 328
Erhaltene Danke: 3
Windows 7
Delphi 7 Pro.
|
Verfasst: Do 04.10.07 09:43
Es muss ja nicht immer eine Komponente sein. Wie du es ohne löst findest hier beschrieben oder hier der Quelltext einer Tray Komponente zum selber bauen und erweitern  .
critter _________________ Diejenigen, die grundlegende Freiheiten aufgeben, um ein wenig mehr vorrübergehende Sicherheit zu erkaufen, verdienen weder Freiheit noch Sicherheit.
(Benjamin Franklin;"The Papers of Benjamin Franklin", Vol. 6, Apr. 1, 1755, through Sep. 30, 1756)
|
|
Mitmischer 1703
Beiträge: 754
Erhaltene Danke: 19
Win 7, Debian
Delphi Prism, Delphi 7, RAD Studio 2009 Academic, C#, C++, Java, HTML, PHP
|
Verfasst: Do 11.10.07 19:28
Ich habs mir mal für C++ umgebaut. Klappt aber nicht! Hilfe!
  C#-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| void __fastcall TForm1::TrayIcon1Click(TObject *Sender) {
try
{
TrayIcon1->Minimize();
Application->Restore();
Form1->Visible = true;
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
void __fastcall TForm1::IndenTray1Click(TObject *Sender) {
try
{
Form1->IndenTray1->Enabled = false;
TrayIcon1->Visible = true;
Form1->Visible = false; Application->Minimize();
TrayIcon1->Hint = Form1->Caption + "ist noch aktiv";
Application->ProcessMessages(); }
catch (Exception &exception)
{
Application->ShowException(&exception);
}
} |
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Fr 12.10.07 00:48
Was klappt nicht? 
Kompiliert es nicht? [IRONIE]Funktioniert es nicht, den Quelltext in Delphi einzutippen?  [IRONIE]
Funktioniert das Minimieren in den Tray nicht oder das Wiederherstellen?
|
|
|
