F�rum Declarar MessageBox como vari�vel global #544380

01/02/2016

Delphi

Bom dia,

Gostaria de saber se h� um jeito de declarar uma vari�vel global cujo o valor seja uma messagebox.

Gabriel

Curtir t�pico

+ 0

Responder

Post mais votado

01/02/2016

Crie um m�todo p�blico no seu form principal e fa�a a chamada de onde quiser.

procedure fechar();
begin
if( Application.Messagebox('Deseja Sair?', 'Sair', MB_YesNo+MB_IconQuestion) = id_yes) then
begin
Application.terminate;
end
end;

Leandro Gon�alves

Responder

Gostei + 2

Mais Posts

01/02/2016

Raimundo Pereira

Sim, o que precisa ?

Responder

Gostei + 0

01/02/2016

Gabriel

Na minha aplica��o, gostaria de declarar uma vari�vel global cujo o valor seja uma messagebox, pois todas as telas teriam o bot�o de sair, ent�o a vari�vel seria mais ou menos assim:

Application.Messagebox('Deseja Sair?', 'Sair', MB_YesNo+MB_IconQuestion); // esta seria a vari�vel

if( Application.Messagebox('Deseja Sair?', 'Sair', MB_YesNo+MB_IconQuestion) = id_yes) then
begin
    Application.terminate;
end

Gostaria que a messagebox fosse uma vari�vel, para que eu n�o precise em toda tela ficar digitando esse c�digo no bot�o sair.

Responder

Gostei + 0

01/02/2016

Gabriel

aparece uma mensagem de erro dizendo "identifier not found: id_yes" , por�m j� declarei o Windows no uses. O que pode estar acontecendo?

Responder

Gostei + 0

01/02/2016

Leandro Gon�alves

utilize IDYES

Responder

Gostei + 1

01/02/2016

Gabriel

funcionou, s� uma ultima d�vida...

Tento declarar essa procedure como p�blica, mas d� erro quando tento chamar ela em algum bot�o, o c�digo que eu fiz �:

uses
  Windows, Messages, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
  Dialogs, StdCtrls, ExtCtrls, DB, u_dmprincipal, dateutils, variants;

type

  { TfrmLogin }

  TfrmLogin = class(TForm)
    btnAcessar: TButton;
    btnSair: TButton;
    edtSenha: TEdit;
    edtLogin: TEdit;
    lblLogin: TLabel;
    lblSenha: TLabel;
    Panel1: TPanel;
    procedure btnAcessarClick(Sender: TObject);
    procedure btnSairClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
                                             //Declaro aqui a procedure como publica
  end;


var
  frmLogin: TfrmLogin;
  vSair : integer;


implementation

{$R *.lfm}

{ TfrmLogin }

procedure TfrmLogin.btnSairClick(Sender: TObject);
begin
  fechar;  // Aqui quero chamar a procedure
end;

procedure fechar();
begin
if( Application.Messagebox('Deseja Sair?', 'Sair', MB_YesNo+MB_IconQuestion) = idyes) then
begin
Application.terminate;
end;
end;

j� tentei declarar essa procedure como publica com alguns metodos que vi em minhas pesquisas, mas nenhum deu certo, sempre aparece a mensagem "identifier not foun fechar'

Responder

Gostei + 0

01/02/2016

Leandro Gon�alves

unit Unit2;

interface

uses Winapi.Windows, Winapi.Messages, System.Classes, Vcl.Controls, Vcl.Forms,
  Vcl.AppEvnts;


type

  TAplicacao = Class
  private

  public

    class function Fechar():String;

  End;



implementation



{ TCliente }



{ TAplicacao }

class function TAplicacao.Fechar: String;
begin
  if (Application.Messagebox('Deseja Sair?', 'Sair', MB_YesNo+MB_IconQuestion) = idyes) then
  Begin
    Application.Terminate;
  End;
end;

end.

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    BtnSair: TButton;
    procedure BtnSairClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm3.BtnSairClick(Sender: TObject);
begin
  TAplicacao.Fechar;
end;

end.

Responder

Gostei + 1

01/02/2016

Leandro Gon�alves

Criei uma Unit para vc ter uma classe com m�todos est�ticos

E toda tela que vc criar, � s� coloca-la na Uses e chamar o m�todo com o nome da classe.

Responder

Gostei + 1

01/02/2016

Gabriel

Criei a unit e a procedure, mas o erro persiste

unit u_procedures;

{$mode objfpc}{$H+}

interface

uses
  Windows, Messages, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
  Dialogs, StdCtrls, ExtCtrls, DB, u_dmprincipal, dateutils, variants;

implementation

procedure fechar();
begin
if( Application.Messagebox('Deseja Sair?', 'Sair', MB_YesNo+MB_IconQuestion) = idyes) then
begin
Application.terminate;
end;
end;

end.

quando chamo a procedure no bot�o fechar, aparece a mesma mensagem

Declarei a unit no uses

Responder

Gostei + 0

01/02/2016

Leandro Gon�alves

Voc� tem que criar uma classe conforme eu criei no exemplo (1� bloco), depois nas outras telas voc� chama o m�todo conforme (2� bloco).

Responder

Gostei + 1

01/02/2016

Natanael Ferreira

Faltou declarar a procedure logo abaixo do c�digo da Uses.

Teste assim sua unit de procedures:

[Quote]unit u_procedures;

{$mode objfpc}{$H+}

interface

uses
Windows, Messages, Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
Dialogs, StdCtrls, ExtCtrls, DB, u_dmprincipal, dateutils, variants;

procedure fechar(); // Adicionei esta linha

implementation

procedure fechar();
begin
if (Application.Messagebox('Deseja Sair?', 'Sair', MB_YesNo + MB_IconQuestion) = idyes) then
begin
Application.terminate;
end;
end;

end.[/Quote]

Responder

Gostei + 1

01/02/2016

Gabriel

Leandro, desculpe n�o tinha visto sua resposta rs, mas agora deu certo

Muito obrigado pela ajuda e paci�ncia pessoal!

Responder

Gostei + 1