| Autor |
Beitrag |
Halber
Beiträge: 55
|
Verfasst: Do 13.10.05 10:34
Hall alle zusammen!
Der Titel sagt/fragt alles!
Danke für eure Hilfe 
Halber Moderiert von  raziel: Topic aus Sonstiges verschoben am Do 13.10.2005 um 10:40
|
|
Martin1966
Beiträge: 1068
Win 2000, Win XP
Delphi 7, Delphi 2005
|
Verfasst: Do 13.10.05 10:37
Wie wäre es mit suchen?  TRAYICON
|
|
Halber 
Beiträge: 55
|
Verfasst: Do 13.10.05 14:24
merh oder weniger klappts damit, aber wie kann ich anstelle von so nem dämlichen windosicon das von form1 nehmen? wenn ich schreib icon:=form1.icon; klappts nich dann istin der leiste da kein icon zu sehn sonder nur ein lehrer platz.
und ich weiss ich nierv aber ich muss noch was wissn:
wie mach ich es jetz dass sich das prog beim minimieren nur in das systemicon minimiert und dieser dämliche balken nich mehr da is?
|
|
Martin1966
Beiträge: 1068
Win 2000, Win XP
Delphi 7, Delphi 2005
|
Verfasst: Do 13.10.05 14:53
| Halber hat folgendes geschrieben: | | wenn ich schreib icon:=form1.icon; klappts nich dann istin der leiste da kein icon zu sehn sonder nur ein lehrer platz. |
Könntest du etwas mehr Code posten? Mit diesem Einzeler den du gepostet hast kann ich dir nicht wirklich helfen.
Außerdem wäre es schön wenn Du vor dem Absenden deines Beitrags diesen noch mal durchlesen würdest um eventl. Tippfehler und fehlende Buchstaben zu korrigieren. 
Lg Martin
|
|
Halber
Beiträge: 55
|
Verfasst: Do 13.10.05 15:16
Hier der gefragt code:
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm_start.FormCreate(Sender: TObject);
begin
with fIconData do
begin
cbSize := SizeOf (TNOTIFYICONDATA);
Wnd := Handle;
uID := 1;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
Icon := form_start.icon;
szTip := 'Mp3 Mediacenter';
uCallBackMessage := 2;
end;
If not Shell_NotifyIcon (NIM_ADD, @fIconData) then
;
end; |
was muss ich statt der zeile Icon := form_start.icon; schreiben?
und wie mach ich das, dass das programm nur in das systemicon minimiert?
|
|
Martin1966
Beiträge: 1068
Win 2000, Win XP
Delphi 7, Delphi 2005
|
Verfasst: Do 13.10.05 15:35
| Halber hat folgendes geschrieben: | | was muss ich statt der zeile Icon := form_start.icon; schreiben? |
Delphi-Quelltext
1:
| Icon := form_start.icon.handle; |
|
|
Halber
Beiträge: 55
|
Verfasst: Do 13.10.05 15:59
sry aber die zeile tut nich
|
|
Halber
Beiträge: 55
|
Verfasst: Do 13.10.05 16:48
hab rasugefunden wie die zeile richtig heissen muss:
Delphi-Quelltext
1:
| HIcon := form_start.icon.handle |
aber wie mach ich es noch, dass der balkan in der taskleiste im minimierten zustand durch das systemicon ersetzt wird?
|
|
Martin1966
Beiträge: 1068
Win 2000, Win XP
Delphi 7, Delphi 2005
|
Verfasst: Fr 14.10.05 12:25
Delphi-Quelltext
1:
2:
3:
| Application.MainForm.Visible := False;
if IsWindowVisible (Application.Handle) then
ShowWindow (Application.Handle, SW_HIDE); |
Delphi-Quelltext
1:
2:
3:
| Application.MainForm.Visible := True;
if not IsWindowVisible (Application.Handle) then
ShowWindow (Application.Handle, SW_SHOW); |
|
|
Halber
Beiträge: 55
|
Verfasst: Fr 14.10.05 14:40
sorry, für die dumme frage, aber wo muss mder pfad hin?
|
|
Martin1966
Beiträge: 1068
Win 2000, Win XP
Delphi 7, Delphi 2005
|
Verfasst: Fr 14.10.05 16:26
|
|
Halber
Beiträge: 55
|
Verfasst: Fr 14.10.05 16:38
problem hat sich erledigt
|
|
Ivo@CoMRoK
Beiträge: 258
Win XP
D3 Prof., D7 Pe.
|
Verfasst: Di 13.12.05 19:43
Ich hab das jetzt so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| with fIconData do
begin
cbSize := SizeOf (TNOTIFYICONDATA);
Wnd := Handle;
uID := 1;
uFlags := NIF_ICON + NIF_TIP;
hIcon := form1.icon.handle; szTip := 'My Icon';
end; |
Nur: Jetzt ist zwar ein Icon im Tray nur isses net sichtbar(transparent).
mfg Ivo
|
|
