Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-08-2003
Michel Michel is offline
Miembro
 
Registrado: jul 2003
Ubicación: Venezuela
Posts: 55
Poder: 22
Michel Va por buen camino
MessageBox

Amigos foreros tengo entendido q para dar salto de linea en MessageBox es con #13

que tiene de malo estoo


application.MessageBox(Pchar(lcTX.GetText('sDelete')) + 13#10+ Pchar(lcTX.GetText('sDelete1')),
Pchar(lcTX.GetText('sCaption')),MB_IconInformation);

si alguien me puede decir alguna sugerencia gracias

lcTX.GetText('sDelete') = Tiene un String generado por mi
lcTX.GetText('sDelete1') = Tiene un String generado por mi

GRACIAS
Responder Con Cita
  #2  
Antiguo 19-08-2003
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 30
jhonny Va camino a la famajhonny Va camino a la fama
Pues segun lo que yo veo, pues tu lo haz dicho todo...

Cita:
tengo entendido q para dar salto de linea en MessageBox es con #13
Pues antes de 13 debes poner #

Asi:

Código:
application.MessageBox(Pchar(lcTX.GetText('sDelete')) + #13#10+ Pchar(lcTX.GetText('sDelete1')),
Pchar(lcTX.GetText('sCaption')),MB_IconInformation);

Espero te sirva


__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
  #3  
Antiguo 19-08-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.954
Poder: 27
delphi.com.ar Va camino a la fama
Particularmente yo me he hecho mi propia versión de la función que no hace mas que llamar a MessageBox, y recibe strings en sus parámetros... Sinceramente la hice porque yo era un programador de VB, y estaba muy acostumbrado a MsgBox....
Código:
function MsgBox(AMessage: String; AType: Integer = MB_OK; ACaption: String = ''): Integer;
begin
  if ACaption = '' Then
     ACaption := Application.Title ;

  Result := MessageBox(GetActiveWindow, PChar(AMessage), PChar(ACaption), AType);
end;

function MsgBoxFmt(AMessage : String; Params: array of const; AType : Integer = MB_OK; ACaption : String = #0): Integer;
begin
  Result := MsgBox(Format(AMessage, Params), AType, ACaption);
end;
Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #4  
Antiguo 19-08-2003
Julià T. Julià T. is offline
Miembro
 
Registrado: may 2003
Ubicación: en el teclado
Posts: 314
Poder: 22
Julià T. Va por buen camino
como delphi.com.ar, yo también me hice mis funciones para simplificar

Const
SInfo='Información';
SError='Error';

//muestra un mensaje de error
function ShowError(Cad:string):boolean;
begin
Application.MessageBox(Pchar(Cad),SError,MB_OK + MB_ICONERROR);
Result:=false;
end;

//muestra un mensaje de información
function ShowInfo(Cad:string):boolean;
begin
Application.MessageBox(Pchar(Cad),SInfo,MB_OK + MB_ICONEXCLAMATION);
Result:=false;
end;
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:59:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi