tray
lazarus / 9-Editor

----------------------------------------------------------------------
skaner1900 · 2010-07-25 13:16

I will try to put program icon to tray...

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1, Windows, LResources
  { you can add units after this };

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
var ExtendedStyle : Integer;
begin
  {$I project1.lrs}
  Application.Initialize;
  ExtendedStyle:=GetWindowLong(Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle,GWL_EXSTYLE,ExtendedStyle or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.  

What's wrong? Why Lazarus underline Handle?

project1.lpr(18,44) Error: identifier idents no member "Handle"
project1.lpr(19,29) Error: identifier idents no member "Handle"
project1.lpr(24) Fatal: There were 2 errors compiling module, stopping

----------------------------------------------------------------------
Leledumbo · 2010-07-26 07:45

Use TTrayIcon instead