[Electronic_Arts]

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

Код:

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

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

Код:

Error;

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

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

Код:

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

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

[YVitaliy]

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

Код:

TrayIcon1:=TTrayIcon.Create();

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

[Electronic_Arts]

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

Код:

Form1.TrayIcon1....

[Electronic_Arts]

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

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

Код:

TrayIcon1:=TTrayIcon.Create();

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

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

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

[MiraLaklamon]

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

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

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

Код:

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

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

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

Код:

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

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

Код:

  TrayIcon1.Free

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

[Alegun]

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

Код:

...
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 требуется постоянно, поэтому он появляется при создании формы и разрушается только по окончании работы, отсюда такой модификат:

Код:

...
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;

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

[Alegun]

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

[MiraLaklamon]

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

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

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

[Electronic_Arts]

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

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

Код:

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

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

Код:

  TrayIcon1.Free

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

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

[MiraLaklamon]

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

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

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

[Electronic_Arts]

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

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

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

[cotseec]

Код:

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

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

[stanilar]

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

[MiraLaklamon]

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

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

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