|
Showmessage
Hola a todos en especial a todos los que me orientan.
Obseven este codigo ( funciona bien), pero luego al final hago la pregunta.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text ='') then begin
showmessage ( 'DEBE ESCRIBIR EL CODIGO DEL CENTRO');
EDIT1.SetFocus;
end;
end;
La salida es la siguiente:
Pero no quiero que salga Project1
|