В Lazarus-0.9.30 всё нормально.
В Lazarus-1.0.1 TTrayIcon нерабочая:
1) Не работает OnMouseMove.
2) Вместо иконки полосочки.
Как лечить?
Модератор: Модераторы
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
TrayIcon1: TTrayIcon;
procedure FormCreate(Sender: TObject);
procedure TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
halt;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TrayIcon1.Visible:=true;
end;
end.
alex_alex_alex1 писал(а):Решено.
alex_alex_alex1 писал(а):Достаточно пройтись по ссылкам в теме
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 91