Simular un MsgBox de VisualBasic en Delphi
2006-10-30 02:37:39
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;
Hi! Welcome to Saiyine Punto Com where I talk about anything that goes through my mind!