[Electronic_Arts]

есть такой код

Код:

1 2 3 4

TrayIcon1.BalloonHint:='ОШИБКА'; TrayIcon1.BalloonTitle:='Внимание!'; TrayIcon1.BalloonFlags:=bfError; TrayIcon1.ShowBalloonHint;

как это превратить в процедуру - что бы вызвать это одной строкой к примеру

Код:

1

Error;

просто TrayIcon1 это компонент...

попробовал так у меня программа ругается почему не подскажете??

Код:

1 2 3 4 5 6 7 8 9

procedure error; var TrayIcon1: TTrayIcon; begin TrayIcon1.BalloonHint:='ОШИБКА'; TrayIcon1.BalloonTitle:='Внимание!'; TrayIcon1.BalloonFlags:=bfError; TrayIcon1.ShowBalloonHint; end;

голова уже не варит...торможу...

[YVitaliy]

TTrayIcon - это VCL компонент, поэтому его лучше кидать на форму. Если уж так хочешь, то вызывай конструктор класса, типа

Код:

1	TrayIcon1:=TTrayIcon.Create();

а потом еще нужно дополнительные параметры для компонента настроить (компонент не видел, не знаю).

[Electronic_Arts]

разобрался надо было писать

Код:

1	Form1.TrayIcon1....

[Electronic_Arts]

Сообщение от YVitaliy

TTrayIcon - это VCL компонент, поэтому его лучше кидать на форму. Если уж так хочешь, то вызывай конструктор класса, типа

Код:

а потом еще нужно дополнительные параметры для компонента настроить (компонент не видел, не знаю).

Я знаю - он был на форме просто - говорю же мозг просто тормозил...

все равно спасибо - за отклик!

[MiraLaklamon]

Сообщение от Electronic_Arts

просто TrayIcon1 это компонент...

попробовал так у меня программа ругается почему не подскажете??

Код:

голова уже не варит...торможу...

Потомучто переменная TrayIcon1 у тебя ссылается вникуда. Сначала нужно создать объект компонента с помощью его конструктора и ссылку на этот объект присвоить переменной TrayIcon1.
Примерно так:

Код:

1 2 3 4 5 6

var   TrayIcon1: TTrayIcon; begin   TrayIcon1:=TTrayIcon.Create(Application);   TrayIcon1.BalloonHint:='ОШИБКА';   // и т. д.

И потом, когда объект уже больше не нужен, не забывать его разрушать:

Код:

1	TrayIcon1.Free

иначе будут утечки памяти...

[Alegun]

У меня в сборке компонент TrayIcon требуется постоянно, поэтому он появляется при создании формы и разрушается только по окончании работы, отсюда такой модификат:

Код:

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

... var  TrayIcon1: TTrayIcon;   implementation ...  procedure TForm1.FormCreate(Sender: TObject); begin   TrayIcon1:= TTrayIcon.Create(TrayIcon1); end; ... procedure TForm1.error; begin  with TrayIcon1 do begin BalloonHint:='ОШИБКА'; BalloonTitle:='Внимание!'; BalloonFlags:=bfError; Active:= True; ShowBalloonHint; end; ...  procedure TForm1.FormDestroy(Sender:TObject); begin  TrayIcon1.Destroy; end;

[MiraLaklamon]

Сообщение от Alegun

У меня в сборке компонент TrayIcon требуется постоянно, поэтому он появляется при создании формы и разрушается только по окончании работы, отсюда такой модификат:

Код:

Компоненты удобнее бросать на форму. Тогда не нужно их вручную создавать (в FormCreate) и разрушать (в FormDestroy). Всё автоматически создасться и разрушится

[Alegun]

Кто спорит, конечно удобно, но напрягает сообщение при запуске проекта "Нету установленного компонента", а так в среду его можно и не внедрять

[MiraLaklamon]

Сообщение от Alegun

Кто спорит, конечно удобно, но напрягает сообщение при запуске проекта "Нету установленного компонента", а так в среду его можно и не внедрять

Ну если так, то тогда конечно удобнее вручную создавать/разрушать...
Особенно в Lazarus (FreePascal), в котором для установки компонента нужно перекомпилировать весь Lazarus...

[Electronic_Arts]

Сообщение от MiraLaklamon

Потомучто переменная TrayIcon1 у тебя ссылается вникуда. Сначала нужно создать объект компонента с помощью его конструктора и ссылку на этот объект присвоить переменной TrayIcon1.
Примерно так:

Код:

И потом, когда объект уже больше не нужен, не забывать его разрушать:

Код:

иначе будут утечки памяти...

Почему то этот метод не пашет...
TrayIcon1.ShowBalloonHint; //результат ноль

[MiraLaklamon]

Сообщение от Electronic_Arts

Почему то этот метод не пашет...
TrayIcon1.ShowBalloonHint; //результат ноль

Может ты его слишком быстро разрушаешь?

[Electronic_Arts]

Сообщение от MiraLaklamon

Может ты его слишком быстро разрушаешь?

вовремя проверки - я часть разрушения вообще убрал...чтоб на результат смотреть - нет тут дело не в этом..

[cotseec]

Код:

1 2 3

..... TrayIcon1.Visible:=true; TrayIcon1.ShowBalloonHint;

если компонент из какого-либо RAD

[stanilar]

Parent, Parent забыли!!!

[MiraLaklamon]

Сообщение от stanilar

Parent, Parent забыли!!!

Неизвестно какой версией "TTrayIcon" пользуется Electronic_Arts, но скорее всего он невизуальный. А у невизуальных компонентов нет свойства "Parent".