Spørgsmål vedr. MessageDlg

procedure TForm1.Button1Click(Sender: TObject);
const
  RETURN = #10#13;
begin
  MessageDlg('Dette er en test' + RETURN + ' - Linie2' + RETURN + ' - Linie3', mtInformation, [mbOk], 0)
end;

Takker :)

hej

måske kan du bruge nedenstående .
ellers er det som snowball skriver

god weekend.


unit ExMessageBox;

interface

  uses Windows, forms, ShellApi, dialogs;


  function PRIMARYLANGID(lgid : Word) : LongInt;
  function SUBLANGID(lgid : Word) : LongInt;
  function MAKELANGID(sPrimaryLanguage : Word; sSubLanguage : Word) : Word;

  function MessageDlgEx(Text, Titel : string; msgType : integer) : integer;
  function ShowQuestion(Text, Titel : string) : integer;
  function ShowWarning(Text,Titel : string) : integer;

implementation

function PRIMARYLANGID(lgid : Word) : LongInt;
begin
  result := lgid and $3FF;
end;

function SUBLANGID(lgid : Word) : LongInt;
begin
  result := lgid shr  0;
end;

function MAKELANGID(sPrimaryLanguage : Word;
                    sSubLanguage : Word) : Word;
begin
  result := (sSubLanguage shl  0) or
            sPrimaryLanguage;
end;

function MessageDlgEx(Text, Titel : string; msgType : integer) : integer;
begin
  Result := MessageBoxEx(Application.Handle , pChar(Text), pChar(Titel), MsgType,MAKELANGID(LANG_DANISH, SUBLANG_DEFAULT));
end;

function ShowQuestion(Text, Titel : string) : integer;
begin
  MessageDlgEx(Text,Titel,MB_ICONQUESTION);
end;

function ShowWarning(Text, Titel : string) : integer;
begin
  MessageDlgEx(Text,Titel,MB_ICONWARNING);
end

man kan også bruge #10#13 som tegn