Simular un MsgBox de VisualBasic en Delphi

Por Saiyine el 2006-10-30 02:37:39 - Secciones: DELPHI - Enlace permanente: 718

Simular el MsgBox de VisualBasic en Delphi es bastante fácil, ya que el objeto Application contiene una función exactamente igual. El problema es que es tan parecida que no usa Strings sino punteros a cadenas, así que tendremos que usar este pequeño encapsulamiento:

function MsgBox(texto, titulo: string; Flags: Word): Integer;
var
  C1, C2: array[0..300] of Char;
begin
  StrPCopy(C1, Copy(texto, 0, 299));
  StrPCopy(C2, Copy(titulo, 0, 299));
  MsgBox := Application.MessageBox(C1, C2, Flags);
end;

Otras entradas de la web que podrian interesarte:

(442) Jan 01 DELPHI Como averiguar el codigo ascii de una tecla pulsada en el form y como simular la pulsacion de otra
(868) Apr 03 DELPHI Buscar objetos por su nombre en Delphi
(894) Nov 16 DELPHI Poner las ventanas de tu programa en Delphi encima de las demás (Always on top)
(717) Oct 30 DELPHI PASCAL NPRIMOS Calcular si un numero es primo en Delphi - Pascal
(2) Apr 19 PRINCIPAL Creada la sección de Delphi

1369

Anonimo (2007-07-25 10:36:58)

1370

Anonimo (2007-07-25 10:37:35)

1547

magenta (2007-10-23 09:29:42)

hola me encanta tu idea pero, apenas empieso kon esot de programar me gustaria ayuda... komo puedo poner el MsgBox el delphi esta donde los combobox la verdad espero pueda ayudarme
gracias

1903

Anonimo (2008-02-23 02:20:42)

:OO

3883

Eduardo (2009-10-21 10:16:23)

Como haces en visual basic.. codificando... el msgbox es una función que muestra un mensaje por pantalla no un componente de la paleta.

showmessage()
messagedlg()

sirven para este cometido...

Mis saludos