HalliHallo
Bevor ich anfange zu texten erst einmal allen Frohe Weihnachten
...
Naja also es geht um Messages und um das Icon in der SysTray...
Folgender Code:
Delphi-Quellcode:
const
WM_TASKBARICON = WM_USER + 0; { Wichtige Message }
...
type
TTaskBarIcon = class(TObject)
private
...
//MessageFunktion
procedure WMTaskbarEvent(var Msg: TMessage); message WM_TASKBARICON;
...
IcoData.uCallbackMessage := WM_TASKBARICON;
...
procedure TTaskBarIcon.WMTaskbarEvent(var Msg: TMessage);
var
Point: TPoint;
begin
showmessage('klick');
try
case Msg.LParamLo of
WM_LBUTTONDOWN: begin
if Assigned(OnClick) then
OnClick();
end;
WM_RBUTTONDOWN: begin
SetForegroundWindow(FOwner);
GetCursorPos(Point);
FPopupMenu.popup(Point.X,Point.Y);
end;
end;
except
//Fehler: nichts
end;
end;
Eigendlich müsste ja testweise bei einem Klick auf das Icon die Nachricht "klick" angezeigt werden, aber das passier nicht. Ich weiß nicht sowarn es liegt, die namen habe ich auch schon tausendmal kontrolliert, es stimmt allse.
Zur Info: das ganze ist in einer selbstgeschriebnen
Unit. Ka ob das was damit zu tun hat, glaube net...
Und es läuft wärend dessen eine Schleife dauerhaft... ich mal dass das auch nicht schlimm ist...
Delphi-Quellcode:
while not Application.Terminated do begin
end;
Naja danke für eure Hilfe vorab!