Showmessage

[aanil]

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

[ixMike]

Hola

Bueno, no se ve lo que querías poner en salida, pero deduzco que "project1" es el título que sale en la ventana del ShowMessage.

Bueno, tienes dos formas de arreglarlo:

- Ahí aparecerá el título de la aplicación. Se cambia con Application.Title (o en tiempo de diseño: Project -> Options -> Application -> Title).

- Utilizar MessageDlg o Application.MessageBox. Busca en los foros y en la ayua de Delphi cómo utilizar estos dos. En el primero los títulos son del tipo "Error", "Warning"... en el segundo, pues el que tú quieras.


Salu2

[aanil]

Gracias por la ayuda, no se como subir la imagen para mostra la salida, pero eso es lo que quiero cambial el nombre de Project1 por algo que sea adecuado a lo que estoy haciendo.

[roman]

Menú

File|Save Project As

// Saludos

[ixMike]

Empezado por aanil

por algo que sea adecuado a lo que estoy haciendo.

Bueno, pues como ya te he dicho, MessageDlg o Application.MessageBox

Empezado por Ayuda de Delphi

Unit

Dialogs
MessageDlg displays a message dialog box in the center of the screen.

function MessageDlg(const Msg: string; AType: TMsgDlgType;
AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;

Description

Call MessageDlg to bring up a message box and obtain the user's response. The message box displays the value of the Msg parameter.
The AType parameter determines the type of message box that appears. These are the possible values:
[...]
The AButtons parameter determines which buttons appear in the message box. AButtons is of type TMsgDlgBtns, which is a set, so it can include multiple buttons. These are the values that can be included:
[...]
MessageDlg returns the value of the button the user selected. These are the possible return values:
[...]

Hasta trae un ejemplo

Empezado por Ayuda de Delphi

MessageBox displays a specified message to the user.

function MessageBox(Text, Caption: PChar; Flags: Longint): Integer;

Description

Use MessageBox to displays a generic dialog box a message and one or more buttons. Caption is the caption of the dialog box and is optional.
MessageBox is an encapsulation of the Windows API MessageBox function. TApplication’s encapsulation of MessageBox automatically supplies the missing window handle parameter needed for the Windows API function.

Salu2.

[ixMike]

Empezado por roman

File|Save Project As

Será que a estas horas mis dotes adivinativas no están muy bien... ¿qué es lo que se ve en la imagen?

[roman]

Pues es que él dijo

Empezado por aanil

quiero cambial el nombre de Project1 por algo que sea adecuado a lo que estoy haciendo.

De ahí lo que escribí.

// Saludos