[RISOLTO] Principianti(!) Parametri Finestre di dialogo.

[AlexLazarus]

N.B. RISOLTO: vedi post N. 18

-------------------------------------

Sto "esplorando" le finestre di dialogo. Ho esaminato tre link...

https://lazarus-ccr.sourceforge.io/docs/lcl/dialogs/messagedlg.html
https://lazarus-ccr.sourceforge.io/docs/lcl/forms/tapplication.messagebox.html
https://www.lazaruspascal.it/index.php?topic=2276.msg14125#msg14125

...ma non ho trovato i valori da assegnare a STILE_FINESTRA (che dovrebbe essere un intero?).

Tra l'altro, le info sulla cartella Dialogs del programma (vedi allegato) non sembrano valide. Sostituendo per esempio mtConfirmation,[mbYes, MbNo] con una delle seguenti...
 
// Combinations of buttons.
  mbYesNoCancel = [mbYes, mbNo, mbCancel];
  mbYesNo = [mbYes, mbNo];
  mbOKCancel = [mbOK, mbCancel];
  mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];

...compare sempre Error: ordinal expression expected. E così anche con le altre tre "abbreviazioni".

Tra l'altro, (vedi "Tripli" nel programma) con [mbYes, mbIgnore, MbCancel], compare la finestra con due soli pulsanti, ma forse mi sono incasinato con tutti quei parametri...
...
Inoltre non ci sono indicazioni su come impostare, per un determinato pulsante, il valore di default per consentire all'utente di premere il tasto invio senza essere costretto a selezionare il pulsante con il mouse.
Ho provato con 64(!) valori diversi (vedi Button1) che vengono accettati, ma non sortiscono alcun effetto. Devo proseguire fino a 256?

A parte tutto, che differenza (sostaziale) c'è tra MessageDlg e MassageBox?

Mi sono invece rassegnato(!) a non poter personalizzare le stringhe sui pulsanti (Yes / Sì - Cancel / Annulla, eccetera).

Allego screenshot e ZIP, che credo possa essere di aiuto ai principianti e a chi intenda dare una mano.

[giacomarko]

Il valore di uscita di una finestra di dialogo non è mbYes ma mrYes
... modalbuttonYes è quello che vuoi nella dialog,
... modarlresultYes, è quello che ottieni

chiaramente questo vale anche per le altre combinazioni, va da se che è possibile "chiedere" alla Dialog di inserire diversi pulsanti,
ma in uscita si otterrà un solo valore, che è il Modal Result della Dialog Box, sul quale poi si possono effettuare tutti i controlli che si vuole.

ecco un esempio,

Codice: [Seleziona]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Dialogs.MessageDlg('Welcome to my xyz application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin
    Dialogs.MessageDlg('Exiting the xyz application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;
end;

[quack]

@AlexLazarus:

In merito agli stili della finestra di dialogo, li trovi qui

https://lazarus-ccr.sourceforge.io/docs/lazutils/uitypes/tmsgdlgtype.html

In merito all'errore di compilazione utilizando una Combination of buttons, quando la passi alla funzione devi togliere le parentesi quadre perchè la Combinations è già un set di costanti.

Per esempio:

Codice: [Seleziona]

MessageDlg(Tit_finestra,  Messaggio, mtInformation, mbYesNoCancel, 0, mbYes);

L'ultimo parametro passato alla funzione, in questo caso mbYes, è il punsante di default,
se l'utente preme invio la funzione restituisce mrYes.

Non credo che tutte le combinazioni di pulsanti siano ammesse, es. [mbYes, mbIgnore, mbCancel].

[giacomarko]

Le diverse combinazioni di pulsanti sono possibili, chiaramente devono essere utilizzate con la logica

questi i valori che determinano il tipo di pulsante che una Dialog può mostrare,

The Buttons value may be one or more of the following enumerated values :
mbYes            Displays a 'Yes' button
mbNo               Displays a 'No' button
mbOK               Displays an 'OK' button
mbCancel     Displays a 'Cancel' button
mbAbort            Displays an 'Abort' button
mbRetry            Displays a 'Retry' button
mbIgnore            Displays an 'Ignore' button
mbAll            Displays an 'All' button
mbNoToAll    Displays a 'No to all' button
mbYesToAll     Displys a 'Yes to all' button
mbHelp            Displays a 'Help' button

inoltre esistono delle combinazioni di pulsanti, già predefinite, per facilitare la gestione
mbYesNoCancel    = [mbYes,mbNO,mbCancel]
mbYesAllNoAllCancel    =[mbYes,mbYesToAll, mbNo,mbNoToAll,mbCancel]
mbOKCancel            =[mbOK,mbCancel]
mbAbortRetryCancel    =[mbAbort,mbRetry,mbCancel]
mbAbortIgnore            =[mbAbort,mbIgnore]

e questi i valori numerici restituiti dalla Dialog alla sua chiusura, relativi al pulsante premuo:

mrYes    = 6
mrNo    = 7
mrOK    = 1
mrCancel    = 2
mrAbort    = 3
mrRetry    = 4
mrIgnore    = 5
mrAll    = 8
mrNoToAll = 9
mrYesToAll   = 10

M

[AlexLazarus]

Codice: [Seleziona]

[quote author=quack link=topic=2688.msg17737#msg17737 date=1669314577]
In merito agli stili della finestra di dialogo, li trovi qui

https://lazarus-ccr.sourceforge.io/docs/lazutils/uitypes/tmsgdlgtype.html

Scusa, ma per gli stili sono ancora in confusione.
Ho letto... https://lazarus-ccr.sourceforge.io/docs/lazutils/uitypes/tmsgdlgtype.html

...ma a parte che Lazarus suggerisce System.UIType al posto dell'obsoleto UITypes (poco male, ho provveduto a sostituire in Classes), ma proprio non ho capito come piffero devo inserire il parametro desiderato relativo allo stile della finestra.
Per esempio, volendo far comparire il simbolo dell'errore, che devo fare?

Codice: [Seleziona]

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, LCLType, System.UITypes;       

procedure TForm1.Button1Click(Sender: TObject);
// Stile finestra
//type TMsgDlgType = (mtWarning,  mtError,  mtInformation,  mtConfirmation,  mtCustom); ??????????????
Var XA, Risposta: Integer;
begin
     Risposta:=  MessageDlg ('Titolo finestra',  'Parametro XA',  mtConfirmation,[mbYes, mbNo, mbIgnore, MbRetry, MbAbort],mtError); // Yes - No - Ignore - Retry - Abort
end;        

[AlexLazarus]

Le diverse combinazioni di pulsanti sono possibili [...] eccetera.

Ma infatti, sono proprio molte delle variabili che ho inserito nel programma dimostrativo (ZIP file) allegato al post iniziale.

[quack]

Invece di mtConfirmation devi usare mtError,

Codice: [Seleziona]

MessageDlg('Tit_finestra',  'Messaggio', mtError, [mbYes, mbNo],  0, mbYes);

Se ti serve una finestra di Warning usa mtWarning

Codice: [Seleziona]

MessageDlg('Tit_finestra',  'Messaggio', mtWarning, [mbYes, mbNo],  0, mbYes);

e cosi via per le altre tipologie di finestre. I valori ammessi sono:

mtWarning
mtError
mtInformation
mtConfirmation
mtCustom

[AlexLazarus]

Invece di mtConfirmation devi usare mtError,

Codice: [Seleziona]

MessageDlg('Tit_finestra',  'Messaggio', mtError, [mbYes, mbNo],  0, mbYes);

(...eccetera...)

Oh! Finalmente.  Grazie!
Tra breve pubblicherò il programma (ZIP) completo e aggiornato con i suggerimenti ricevuti.
Rimane la seconda parte delle mie perplessità segnalata nel post originario:

A parte tutto, che differenza (sostaziale) c'è tra MessageDlg e MassageBox?

Per il momento modifico il post originale con Quasi RISOLTO; poi vedremo... 

[DragoRosso]

La differenza sostanziale è che la MessageBox è una Api di Windows, mentre MessageDlg è una variante potenziatata e migliorata della LCL.

Nella MessageDlg puoi impostare le coordinate di visualizzazione, il contesto di Help a cui accedere, oltre ad altre migliorie rispetto alla MessageBox standard di Windows.

Tieni presente che non si dovrebbe usare MessageBox, MessageDlg e ShowMessage nei Thread, come in genere alcuna finestra di dialogo.

In Lazarus c'è una variante alle dialog box, la TaskDialog che incapsula sempre una Api di Windows e che può essere usata nei Thread (con cautela):

https://wiki.freepascal.org/TTaskDialog

Ciao

[AlexLazarus]

Ho applicato le informazioni ricevute (grazie ancora!) al programma-demo pubblicato nel primo post, che allego qui 2022_11_27_Finestre_dialogo.ZIPoltre a tre screenshot.

Rimangono da stabilire alcune cosette(!)

1) In che modo si può gestire Custom?

2) Che tipo di variabili sono MtWarning ... MtConfirmation (e simili) e anche mbYes ... MbNo (e simili) in modo da fare una cosa del genere:

Codice: [Seleziona]

// N.B. da valutare solo in modo schematico: la sintassi è completamente errata! 
Var Stile_Finestra: Integer; // ????
Var Stile_Risposta: Real; // ????
Var Stile_Scelta: // ????

Stile_Finestra:= mtError;
Stile_Risposta:= [mbYes,mbNO,mbCancel];
Stile_Scelta:= mbYes;

MessageDlg('Tit_finestra',  'Messaggio', Stile_Finestra, [Stile_Risposta],  0, StileScelta];

Comunque, per il momento le informazioni sono più che sufficienti per capire come gestire le finestre di dialogo nella stragrande maggioranza dei casi.

[bonmario]

2) [/b]Che tipo di variabili sono MtWarning ... MtConfirmation (e simili) e anche mbYes ... MbNo (e simili) in modo da fare una cosa del genere:

In generale, se nell'IDE di Lazarus fai CTRL + Click su una variabile o una costante, ti manda alla sua dichiarazione.
In questo caso, le trovi anche tutte belle raggruppate, così puoi farti un'idea


Ciao, Mario

[AlexLazarus]

In generale, se nell'IDE di Lazarus fai CTRL + Click su una variabile o una costante, ti manda alla sua dichiarazione.
In questo caso, le trovi anche tutte belle raggruppate, così puoi farti un'idea

...uhmm... forse non sono stato chiaro. Le costanti le ho trovate, ma a parte il fatto che sono "singole", non vedo come sia possibile utilizzarle in un programma. Esempio (ovviamente errato) negli screenshot.

[bonmario]

Non so se ho capito bene, ma ...

Dichiari la variabile:

Codice: [Seleziona]

    MyButtons: TMsgDlgButtons;

La inizializzi:

Codice: [Seleziona]

    MyButtons:=[];

Se ad esempio è vera una certa condizione, aggiungi i bottoni:

Codice: [Seleziona]

    MyButtons:=MyButtons + [mbNoToAll] + [mbYes];

A questo punto puoi emettere la richiesta:

Codice: [Seleziona]

    MsgResult:=MessageDlg('Verifica presenza file Iso', Messaggio, mtError, MyButtons, 0);

Ciao, Mario

[giacomarko]

AlexLazarus,

secondo me fai confusione tra:

le costanti mb... che sono le costanti per i pulsanti, da usare come parametro all'interno della chiamata, ... [mbAll] ad esempio

e

le costanti mr ... che sono le costanti restitute dalla Dialog quando esci.

nel tuo esempio "Forum_Lazarus_Finestra_Dialogo_B.png" inserisci nella chiamata della Dialog mrAll ... invece di mbAll

[DragoRosso]

@AlexLazarus,

a differenza di VB, il Pascal è un linguaggio che si basa molto sulla definizione di "TIPO".

Oltre ai "TIPI" noti come integer, double, string, INT64, etc ... esistono una miriade di "TIPI" definiti per descrivere al meglio (e possibilmente senza mischiare e fare confusione) l'uso in un certo contesto.

La maggior parte dei "TIPI" esistenti deriva dalle API di Windows, ad esempio le definizioni di cui in questo topic si è discusso, altri sono e possono essere creati a proprio uso e consumo .... anzi direi che DEVONO essere creati ...

Esempio:

//Definisco un  nuovo tipo che descrive il tempo (e che posso espandere in futuro senza pregiudicare il codice già scritto)
type
  TTempo = (NonPervenuto=0, Soleggiato, Nuvoloso, Piovoso, Nevoso, Temporalesco);

//Definisco una variabile di quel tipo

var Tempo: TTempo;

//Assegno uno dei possibili valori alla variabile

Tempo := Nuvoloso;

//Uso della variabile

if Tempo  = Nuvoloso then
  ShowMessage('Nuvoloso');

if Tempo  = Soleggiato then
  ShowMessage('Ohhh, il sole');

Ovviamente anche la definizione di "TIPI" è varia: possono essere interfacce, classi, record, enumerazioni, etc ....

Prova a dare una occhiata all'indice del forum e dai una letta agli articoli riguardanti Lazarus.

Ciao