Цитата:
|
Сообщение от 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). Всё автоматически создасться и разрушится
