Vorab: Ich benutz Delphi 7, könnte vllt. wichtig sein...

Ich arbeit bei meinem neuen Projekt mit nem TrayIcon und möchte halt so ne Statusmeldung via Mouseover anzeigen.
Nun ist das Prob aber, dass dieser Text anscheinend zu lang ist. Ich hab nun gesehen, dass der auf 64 Zeichen beschränkt ist (TrayIconData.szTip ist ein Array[0..63] of char)

Wie lässt sich ein längerer Text anzeigen?

(Ich hab Google schon bemüht, aber nix gefunden)

MfG Z4ppy

PS: Wenn ich nun szTip einen längereren Text zuordne, bekomm ich beim schliessen des Programms (via close oder Application.Terminate) ne Exception, die von Windoof abgefangen wird mit dieser Meldung "Project1.exe hat ein Problem festgestellt und musste beendet werden"... Das Pikante daran: Wenn ich bei der Meldung auf "Schliessen" geh, bleibt das Proggie immer noch offen und die Meldung erscheint sofort wieder

Was ist, wenn Du das Array vergrößerst?

Afaik ist der TrayIcon-Hint auf 64 Zeichen begrenzt - also wirst du Windows ändern müssen

Hallo

Ab Win ME werden max. 128 Zeichen unterstützt.
Bei den neueren Delphi Versionen wurde die TNotifyIconData Struktur auch schon angepasst.
Bei älteren Versionen muss sie redeklariert werden.
(Oder du verwendest gleich die TCoolTrayIcon Komponente, wo auch längere Hints angezeigt werden können)

zusammenfalten · markieren

Delphi-Quellcode:

type
  PNotifyIconDataA = ^TNotifyIconDataA;
  PNotifyIconDataW = ^TNotifyIconDataW;
  PNotifyIconData = PNotifyIconDataA;
  {$EXTERNALSYM _NOTIFYICONDATAA}
  _NOTIFYICONDATAA = record
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
    szTip: array [0..127] of AnsiChar;
    dwState: DWORD;
    dwStateMask: DWORD;
    szInfo: array [0..255] of AnsiChar;
    uTimeout: UINT;
    szInfoTitle: array [0..63] of AnsiChar;
    dwInfoFlags: DWORD;
  end;

@Muhkuch: geht net so einfach...

@toms: Super, werd ich heute Abend mal ausprobieren. Und thx für den Tipp mit TCoolTrayIcon

MfG Z4ppy

€dit: @toms: Nochmal viiiiiiiiielen Dank für den Tip mit TCoolTrayIcon, damit klappt alles super