nao consigo mudar o titulo

18/01/2006

0

tenho uma unit com algumas funcoes ...

estou tentando fazer uma funcao que exiba um messagebox, mas nao estou conseguindo ...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function c(const txt: string; const title: string): integer;
begin
    with application do
    result:= MessageBox(PAnsiChar(txt), PAnsiChar(title) , 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
c(´rafa´,´teste´);
end;

end.


pq o titulo nao aparece como ´teste´ e aparece como project1???
como faco para colocar botoes diferentes, colocar um icone igual a uma caixinha de confirmacao??

[]s


Fernando_cunha

Fernando_cunha

Responder

Posts

18/01/2006

Marco Salles

function MessagePersonalite(const informacao,Titulo: string; Flags: Integer): Integer;
begin
  with Application do
    Result := MessageBox(PAnsiChar(informacao), PAnsiChar(Titulo), Flags + MB_ICONWARNING);
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
  MessagePersonalite(´rafa´,´teste´,0);
end;



Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar