Funktion, der opretter MessageBox!

Jeg fandt to fejl og har rettet dem!

function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var                      //Lokal Variant
  BeskedBoks: TForm;     //BeskedBoks er af typen TForm
  I: Integer;            //I er af typen Integer
  Knap: TButton;         //Knap er af typen TButton
  CaptionIndex: Integer; //CaptionIndex ar af typen Integer
begin
  //Skaber en MessageDialog fra uniten Dialogs!
  BeskedBoks := CreateMessageDialog(Msg, DlgType, Buttons);
  //Sætter CaptionIndex til nul!
  CaptionIndex := 0;
  //Laver en For-To-Do løkke! Går igennem alle BeskedBoks'ens komponenter
  for I := 0 to BeskedBoks.ComponentCount - 1 do
  begin
    //Hvis en af dem er af typen TButton
    if (BeskedBoks.Components[I] is TButton) then
    begin
      //Kopieres komponentens egenskaber til Knap
      Knap := TButton(BeskedBoks.Components[I]);
      //Hvis CaptionIndex er højere end den gældende komponents Captions stoppes løkken!
      if CaptionIndex > High(Captions) then Break;
      //Captions bliver kopieret til Knap's Caption
      Knap.Caption := Captions[CaptionIndex];
      //CaptionIndex bliver ophøjet med 1!
      Inc(CaptionIndex);
    end;
  end;
  //Resturnere en Integer
  Result := BeskedBoks.ShowModal;
end;

funktionen kan kaldes sådan her!

MyMessageDialog('Hej',mtCustom,[mbOK],['Hello']);

[Redigeret d. 22/04-04 23:13:22 af Søren Klit Lambæk]

function MyMessageDialogPos(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; Captions: array of string; X, Y: Integer): Integer;
var
  BeskedBoks: TForm;
  i: Integer;
  Knap: TButton;
  CaptionIndex: Integer;
begin
  BeskedBoks := CreateMessageDialog(Msg, DlgType, Buttons);
  captionIndex := 0;
  BeskedBoks.Left := X;
  BeskedBoks.Top := Y;
  for i := 0 to BeskedBoks.ComponentCount - 1 do
  begin
    if (BeskedBoks.Components[I] is TButton) then
    begin
      Knap := TButton(BeskedBoks.Components[I]);
      if CaptionIndex > High(Captions) then Break;
      Knap.Caption := Captions[CaptionIndex];
      Inc(CaptionIndex);
    end;
  end;
  Result := BeskedBoks.ShowModal;
end;

Mvh
DiZpel

Jeg er måske lidt besværlig, men er det muligt, at forklarer hvorfor tingene er skrevet sådan.? Jeg forstår f.eks. ikke, hvorfor captionindex bliver sat til 0 i starten. Og i det hele taget forstår jeg ikke, hvad captionindex bruges til!

CaptionIndex bliver sat til nul fordi det er en lokal variabel! Det skal alle lokale variabler for at sikre, at de starter på nul (ligesom globale variabler altid starter på nul, som default)!

CaptionIndex bliver åbenbart brugt til at finde captions i en liste til knappens caption!

Hvis du ikke er så godt inde i Delphi, er det ikke ligefrem den meste oplagte måde at lære Delphi kode på! Jeg vil derimod anbefale dig at lave dit eget kode og lære Delphi på den måde!

Nej, det ved jeg godt, men jeg er nødt til at bruge denne funktion til at oprette en messageboks, der popper op, når man afslutter mit tekstprogram.. Er der ellers nogle mere simple koder, som jeg kan bruge til dette??

Ja der er mange!

Den mest simple er bare

ShowMessage('Hej');

Saa er der MessageDlg:

MessageDlg('Hej',mtCustom,[mbOK],0);

og

MessageDlgPos('Hej',mtCustom,[mbOk],0,100,100);

Og selvfolgelig den direkte MessageBox()!

[Redigeret d. 25/04-04 21:04:56 af Søren Klit Lambæk]

Ok.. Når jeg kører formen (programmet), hvorpå jeg har en knap, der åbner en messageboks, og som har følgende kode:

  if MyMessageDialog('Vil du gemme før du lukker?', mtConfirmation, mbOKCancel,
    ['Ja', 'Nej']) = mrOk then
    Afslut2.Click
  else Exit;

Hvordan kan jeg så ændre knappernes caption til ja og nej?

Hjelper dette?:

  if MyMessageDialog('Vil du gemme før du lukker?', mtConfirmation, [mbYes, mbNo],
    ['Ja', 'Nej']) = mrYes then
    Afslut2.Click
  else Exit;

Mvh
DiZpel

Jeg kom til at skrive den forkerte kode, men her er den rigtige, hvor jeg vil ændre knappernes caption til ja og nej:

if MessageDlgPos('Vil du gemme før du afslutter?',mtCustom,[mbYes, mbNo],0,500,200) = mrYes then Afslut2.Click
                                                         else Exit;

Skal man virkelig lave en hel funktion bare for at ændre knappernes caption?? kan man ikke bare tilføje ['ja', 'nej'] et eller andet sted?