[Delphi] MessageBox Hilfe xD

[ghosty]

Hey, bräuchte mal wieder eure Hilfe xD
Wie kann ich eine MessageBox mit Variablen erstellen?
Also....

Das geht ja glaube ich....

var
Test1: String;
begin
Test1 := 'Hallo'
ShowMessage(Test1);

Aber ich möchte auch noch einen Titel einbauen.....

Und so geht es ja net..


var
Test1, Test2: String;
begin
Test1 := 'Hallo1'
Test2 := 'Hallo2'
Application.MessageBox (Test1, Test2)


Kann mir da jemand helfen?

[inout]

Application.MessageBox(PChar(Test1), PChar(Test2), Windows.MB_ICONINFORMATION);

[DeXTer]

var
Test1, Test2: String;
begin
Test1 := 'Hallo1'
Test2 := 'Hallo2'
Application.MessageBox (
PAnsiChar(Test1), PAnsiChar(Test2))

[ghosty]

Danke meine lieben <3

[gORDon_vdLg]

ansonsten direkt per winapi mit MessageBoxA (würd W für delphi2009 empfehlen je nach config)
MessageBoxA(0, PAnsiChar('text oder variable'), PAnsiChar('titeltext oder variable'), mb_ok);

statt mb_ok gibt es noch werte wie mb_yesnocancel oder für das icon z.B. mb_iconinformation, für weitere siehe msdn

bei delphi 2009 musste das so machen:
MessageBoxA(0, PAnsiChar(Utf8Encode('text oder variable')), PAnsiChar(Utf8Encode('titeltext oder variable')), mb_ok);
oder
MessageBoxW(0, PWideChar('text oder variable'), PWideChar('titeltext oder variable'), mb_ok);

[K1ngC0bra]

Bitte das nächste Mal den Code Tag benutzen, oder PasteBin von FH.