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 ...
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
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
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)