Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 8 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21
Príspevok NapísalOffline : 01.02.2010 1:52

Robim v D2009 pre .NET a nedari sa mi minimalizovat aplikaciu do tray. Nasiel som nato funkcny kod ktory mi v D7 ide ale v 2009 uz nie. Mate stym skusenost? Nasiel som toho teda viac ale neslo to.
Ide mi hlavne o vytvorenie ikonky, minimalizovanie a skrytie z pruhu problem nieje.


Offline

Skúsený užívateľ
Skúsený užívateľ
[Delphi] Minimalizovanie do tray

Registrovaný: 11.01.09
Prihlásený: 28.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 01.02.2010 11:39

Používal si hotové komponenty, alebo si skúšal aj API funkcie? Skús aj tento kód (i keď vravíš, že si skúšal už viac spôsobov, skús ešte tento):
Kód:
uses
  (* ... *), ShellAPI;

type
  TForm1 = class(TForm)
//...
    procedure WndProc(var Message: TMessage); override;  // toto pripíš medzi ostatné funkcie
  private
    IconNotifyData : TNotifyIconData;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Message: TMessage);
begin

case Message.Msg of
  WM_SYSCOMMAND:   case Message.WParam and $FFF0 of
                     SC_MINIMIZE: begin
                                 Hide;
                                 Exit;
                                 end;
                     SC_RESTORE: ;
                     end;
  WM_USER + 1:    if (Message.LParam = WM_LBUTTONDOWN) then Show;
end;

inherited;

end;


procedure TForm1.FormCreate(Sender: TObject);
begin

  with IconNotifyData do begin
   hIcon := Application.Icon.Handle;
   uCallbackMessage := WM_USER + 1;
   cbSize := sizeof(IconNotifyData);
   Wnd := Handle;
   uID := 100;
   uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
  end;

  StrPCopy(IconNotifyData.szTip, Application.Title);
  Shell_NotifyIcon(NIM_ADD, @IconNotifyData);
  Application.ShowMainForm := False;
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

end;


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21
Príspevok Napísal autor témyOffline : 01.02.2010 12:15

Kód:
[DCC Error] Unit1.pas(58): E2003 Undeclared identifier: 'StrPCopy'


ShellAPI som samozrejme pripojil


Offline

Skúsený užívateľ
Skúsený užívateľ
[Delphi] Minimalizovanie do tray

Registrovaný: 11.01.09
Prihlásený: 28.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 01.02.2010 12:24

Funkcia StrPCopy sa nachádza v unite SysUtils.

// túto funkciu aj tak môžeš vynechať, tá len skopíruje názov aplikácie to popisku tray ikony


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21
Príspevok Napísal autor témyOffline : 01.02.2010 12:45

Kód:
//StrPCopy(IconNotifyData.szTip, Application.Title);
//Shell_NotifyIcon(NIM_ADD, @IconNotifyData);


musel som to takto, ale kvoli tomu druhemu komentu asi nemam ikonu dole ze :)

A naten 2. riadok to pise toto
Kód:
[DCC Error] Unit1.pas(59): E2396 Unsafe code only allowed in unsafe procedure


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21
Príspevok Napísal autor témyOffline : 01.02.2010 14:21

nasiel som toto, ale neviem sa ztoho vysomarit
http://www.swissdelphicenter.ch/torry/showcode.php?id=1303


Offline

Skúsený užívateľ
Skúsený užívateľ
[Delphi] Minimalizovanie do tray

Registrovaný: 11.01.09
Prihlásený: 28.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 01.02.2010 15:53

ha2 píše:
A na ten 2. riadok to pise toto
Kód:
[DCC Error] Unit1.pas(59): E2396 Unsafe code only allowed in unsafe procedure

Sem sa rieši, ako kompilovať pre .NET , ale s tým ja nemám skúsenosti.
ha2 píše:
nasiel som toto, ale neviem sa ztoho vysomarit
Kód:
http://www.swissdelphicenter.ch/torry/showcode.php?id=1303

V tom príklade je toho strašne veľa nepodstatného - v mojom poste som sa snažil dať len dôležité veci (to okomentovanie posledného riadku ti nepomôže, lebo ako si napísal, nebudeš mať dolu ikonu :) )


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21
Príspevok Napísal autor témyOffline : 01.02.2010 22:47

D2009 ma komponentu TrayIcon. co viac dodat...


Odpovedať na tému [ Príspevkov: 8 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. delphi zapis cisla do editu v delphi

v Delphi, Visual Basic

3

1100

11.05.2008 12:02

p360t Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. tray ikonky

v Operačné systémy Microsoft

20

962

03.12.2006 21:44

johny128 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. connections tray

v Operačné systémy Microsoft

0

405

13.07.2009 11:20

jacub Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ikona v tray

v Operačné systémy Microsoft

0

569

02.03.2007 16:56

revenger29 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ATI Tray Tools

v Biosy a ladenie výkonu

2

416

24.08.2010 21:44

mirom Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ati tray tools

v Ostatné programy

0

352

15.08.2010 20:58

luksus Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ati tray tools

v ATI/AMD grafické karty

3

490

26.10.2008 10:54

djfreeman Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ati tray tools

v ATI/AMD grafické karty

9

659

04.08.2010 16:24

djfreeman Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ATI Tray Tools

v Biosy a ladenie výkonu

5

1050

07.04.2007 14:02

Tomas1 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. MEnu v system tray

v Delphi, Visual Basic

1

651

24.03.2009 15:29

Patkoo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. upozornenia v tray ikonach

v Ostatné programy

3

604

12.12.2007 15:14

mimkork Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. QT tray menu + c++

v Assembler, C, C++, Pascal, Java

1

386

16.10.2011 20:07

Fico Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. navod ATI tray tools ?

v Biosy a ladenie výkonu

11

2138

28.02.2008 17:16

prkyyynko Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ICQ6 zobrazenie len v TRAY!

v Sieťové a internetové programy

11

499

21.06.2008 11:52

mimkork Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. systemove info v casti tray

v Ostatné programy

0

510

02.12.2007 15:00

greppi Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ATI tray tools pre NVidiu

v nVidia grafické karty

5

723

28.01.2006 19:42

icefire Zobrazenie posledných príspevkov


Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra