Delphi 5 - comando dopo taskbar

gabbiano

il 10 ott 2018, 11:10

25 risposte

gabbiano

Pochi posts

Iscritto da: ott, 2018

Messaggi:: 13

Delphi 5 - comando dopo taskbar

10 ott 2018, 11:18

Salve a tutti. richiesta di aiuto:

clicco sul pulsante "hide on system tray".
l'applicazione si nasconde e appare l'icona nella system tray.
clicco sull'icona nella system tray.
l'applicazione si mostra ed esegue il comando:

procedure TForm1.FormShow(Sender: TObject);
begin
ShowMessage('ciao');
end;

-

clicco sul pulsante minimize delle BorderIcons.
l'applicazione si nasconde nella taskbar.
clicco sul pulsante nella taskbar per far apparire l'applicazione ...e quando appare vorrei far eseguire lo stesso comando.

25 Risposte

D
Doctorj
Utente Attivo
Iscritto da
ott, 2018
Messaggi:
103
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 11:32
Ciao,

se lo showmessage te lo fa al primo giro non vedo perchè non te lo debba fare anche nel secondo, mi sembra la stessa cosa che fai.

Ciao.
gabbiano
Pochi posts
Iscritto da
ott, 2018
Messaggi:
13
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 11:38
Ciao,

no, nel primo giro faccio click sull'icona nella system tray, nel secondo giro faccio click sul tasto (relativo alla mia applicazione) sulla taskbar.
gabbiano
Pochi posts
Iscritto da
ott, 2018
Messaggi:
13
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 11:44
Quindi sul primo può funzionare il "OnShow", mentre sul secondo forse bisogna lavorare su qualcosa tipo "SIZE_RESTORED" o altro.
evidentemente il "minimize" non è un "hide".
D
Doctorj
Utente Attivo
Iscritto da
ott, 2018
Messaggi:
103
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 12:04
gabbiano ha scritto:
Quindi sul primo può funzionare il "OnShow", mentre sul secondo forse bisogna lavorare su qualcosa tipo "SIZE_RESTORED" o altro.
evidentemente il "minimize" non è un "hide".
Che io mi ricordo, almeno quando feci ai tempi un qualcosa del genere, il programma stava solo nella tray bar, prova eventualmente a spostare la showmessage nell'evento activate del form per vedere se cambia qualcosa.

Ciao.
gabbiano
Pochi posts
Iscritto da
ott, 2018
Messaggi:
13
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 12:12
Il programma sta SOLO nella systemtray quando gli do il comando di nascondersi nella systemtray.
e sta SOLO nella taskbar quando gli do il comando di nascondersi nella taskbar (usando la BorderIcon del minimize).

provato già Activate ma non va
D
Doctorj
Utente Attivo
Iscritto da
ott, 2018
Messaggi:
103
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 12:58
gabbiano ha scritto:
Il programma sta SOLO nella systemtray quando gli do il comando di nascondersi nella systemtray.
e sta SOLO nella taskbar quando gli do il comando di nascondersi nella taskbar (usando la BorderIcon del minimize).
provato già Activate ma non va
Se lo showmessage lo sposti nell'evento FormPaint dovrebbe funzionare.
+
+m2+
Utente Famoso
Iscritto da
mag, 2017
Messaggi:
3548
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 13:04
Scusa ma non capisco bene cosa vuoi fare, prova ad esplicirarlo
gabbiano
Pochi posts
Iscritto da
ott, 2018
Messaggi:
13
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 13:17
Grande Doctorj, con FormPaint ha funzionato. grazie
W
Wolfen
Utente Attivo
Iscritto da
gen, 2017
Messaggi:
79
Re: Delphi 5 - comando dopo taskbar
10 ott 2018, 16:34
Personalmente scrivere qualcosa nell'evento OnFormPaint, che non sia legato al disegno stesso della form, lo escluderei a priori.
Come ha detto +m2+ se provi a raccontarci cosa vuoi fare forse qualche altra idea salta fuori.
D
Doctorj
Utente Attivo
Iscritto da
ott, 2018
Messaggi:
103
Re: Delphi 5 - comando dopo taskbar
11 ott 2018, 08:42
Wolfen ha scritto:
Personalmente scrivere qualcosa nell'evento OnFormPaint, che non sia legato al disegno stesso della form, lo escluderei a priori.
Come ha detto +m2+ se provi a raccontarci cosa vuoi fare forse qualche altra idea salta fuori.
Rispondo a gabbiano, personalmente ho dato la "soluzione" più facile che mi è venuta in mente, ma sono pienamente d'accordo con +m2+ e Wolfen nel dirti che magari non è la soluzione perfetta dato che potrebbe implicare altri comportamenti imprevedibili, il tutto detto senza sapere bene cosa vuoi fare e senza conoscere il tuo programma.

Ciao.
f3rr0
Utente Attivo
Iscritto da
mag, 2017
Messaggi:
177
Re: Delphi 5 - comando dopo taskbar
13 ott 2018, 15:23
gabbiano ha scritto:
Quindi sul primo può funzionare il "OnShow", mentre sul secondo forse bisogna lavorare su qualcosa tipo "SIZE_RESTORED" o altro.
evidentemente il "minimize" non è un "hide".
Guarda che ci eri vicino. Io non userei onpaint a meno che non devi ridisegnare qualcosa sulla form

Puoi catturare il messaggio di restore, come appunto avevi intuito.
Per esempio così
```
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType and $FFF0 = SC_RESTORE) then
    ShowMessage('ciao');
  inherited;
end;
```
gabbiano
Pochi posts
Iscritto da
ott, 2018
Messaggi:
13
Re: Delphi 5 - comando dopo taskbar
23 ott 2018, 15:59
Salve ragazzi, scusate la lunga assenza causa mamme ospedalate.
infatti il FormPaint mi fa partire lo ShowMessage in ogni occasione in cui l'applicazione torna "on top" o comunque visibile dopo un'occultazione (cartelle, browser ecc).

grazie f3rr0, hai colto nel segno.

private
{ Private declarations }
procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
if (msg.CmdType and $FFF0 = SC_RESTORE) then
ShowMessage('ciao');
inherited;
end;
gabbiano
Pochi posts
Iscritto da
ott, 2018
Messaggi:
13
Re: Delphi 5 - comando dopo taskbar
23 ott 2018, 16:00
La F e il 3 purtroppo da una faccina idiota. proviamo così:

grazie f 3 r r 0
gabbiano
Pochi posts
Iscritto da
ott, 2018
Messaggi:
13
Re: Delphi 5 - comando dopo taskbar
25 ott 2018, 14:04
Strana cosa, tra i WM_SYSCOMMAND esiste:

SC_CLOSE, SC_CONTEXTHELP, SC_DEFAULT, SC_HSCROLL, SC_KEYMENU, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE, SC_RESTORE, SC_SIZE ecc ecc ecc

ma non esiste un "SC_RESTOREFROMTASKBAR" (è un nome inventato da me come esempio), ovvero quando l'applicazione è minimizzata nella taskbar e poi la si fa riapparire cliccando sul pulsante sulla taskbar relativo all'applicazione.

Devi accedere o registrarti per scrivere nel forum

25 risposte