Variável em Message....
Ae, alguém sabe como eu faço pra colocar um dado em um texto de messagebox ????? Eu quero pegar o texto de um edit e colocá-lo no texto de um messagebox.... já tentei concatenar mas ele dá o seguinte erro: [i:af88342e51]Inconpatible types: ´String´ and ´PChar´[/i:af88342e51], isso pq eu tb criei uma variável para armazenar o texto do edit para depois inserir só a variável no messagebox....
Ae galera kem souber por favor me ajude....
Desde já obrigado...
Ae galera kem souber por favor me ajude....
Desde já obrigado...
Marshall Mathers
Curtidas 0
Respostas
Joilson_gouveia
18/09/2003
244 - Utilizar o MessageBox com parâmetros
var
Button: Integer;
Mensagem1 : Array[0..79] of Char;
Mensagem2 : Array[0..79] of Char;
begin
StrPCopy(Mensagem1, Edit1.Text + ´ ´ + Edit2.Text);
StrPCopy(Mensagem2, Edit3.Text + ´ ´ + Edit4.Text);
Button := Application.MessageBox (Mensagem2,Mensagem1, MB_YESNOCANCEL+
mb_DefButton1+MB_ICONQUESTION);
end;
var
Button: Integer;
Mensagem1 : Array[0..79] of Char;
Mensagem2 : Array[0..79] of Char;
begin
StrPCopy(Mensagem1, Edit1.Text + ´ ´ + Edit2.Text);
StrPCopy(Mensagem2, Edit3.Text + ´ ´ + Edit4.Text);
Button := Application.MessageBox (Mensagem2,Mensagem1, MB_YESNOCANCEL+
mb_DefButton1+MB_ICONQUESTION);
end;
GOSTEI 0