Страница 1 из 1

TTrayIcon BalloonHint

СообщениеДобавлено: 02.04.2013 11:47:42
IceBeerg
По сабжу: у компонента TTrayIcon не работает BalloonHint. Нашел как исправить - http://qc.embarcadero.com/wc/qcmain.aspx?d=77561
Вставляю в Модуль (Unit1.pas)
Код: Выделить всё
type
TTrayIcon = class(ExtCtrls.TTrayIcon)
public
   constructor Create(Owner: TComponent); override;
end;

и получаю на строке
Код: Выделить всё
constructor Create(Owner: TComponent); override;

unit1.pas(14,23) Error: Duplicate identifier "Owner"
unit1.pas(14,23) Hint: Identifier already defined in unit CLASSES at line 1769
unit1.pas(37,1) Fatal: There were 1 errors compiling module, stopping

Что я делаю не так и не туда?

Добавлено спустя 5 часов 17 минут 40 секунд:
Так
Duplicate identifier "Owner"
победил как constructor Create(AOwner: TComponent); override;
Далее соответственно код:
Код: Выделить всё
constructor TTrayIcon.Create(AOwner: TComponent);
var
  D: PNotifyIconData;
begin
  inherited Create(Owner);
  D := PPointer(DWord(Self) + $48)^;
  Assert(D^.cbSize = SizeOf(TNotifyIconData));
  if (Win32MajorVersion = 5) and (Win32MinorVersion = 0) then
   begin
    {Windows 2000}
    D^.cbSize := DWORD(@(PNotifyIconData(nil)^.guidItem));
   end
  else
  if (Win32MajorVersion = 5) and (Win32MinorVersion = 1) then
   begin
     {Windows XP}
     D^.cbSize := DWORD(@(PNotifyIconData(nil)^.hBalloonIcon));
   end;
end;

И получаю
unit1.pas(49,8) Hint: Conversion between ordinals and pointers is not portable
unit1.pas(54,48) Error: identifier idents no member "guidItem"
unit1.pas(60,49) Error: identifier idents no member "hBalloonIcon"
unit1.pas(89) Fatal: There were 2 errors compiling module, stopping

Дальше мозг не знает в какую сторону думать...

Re: TTrayIcon BalloonHint

СообщениеДобавлено: 03.04.2013 01:51:05
Ism
Здесь пример как все сделать
http://code.google.com/p/vpnpptp/

Re: TTrayIcon BalloonHint

СообщениеДобавлено: 03.04.2013 10:10:12
IceBeerg
Ism
Здесь пример как все сделать
http://code.google.com/p/vpnpptp/

Не нашел... Можно по конкретней?

Re: TTrayIcon BalloonHint

СообщениеДобавлено: 17.04.2013 19:43:02
alex_alex_alex1
По ссылке изучите как работает ponoff - там реализованы свои собственные балуны и хинты у TTrayIcon.