Jeg udlover 50 up til den, der kan gøre dette:
Jeg har følgende funktion, der opretter en MessageBox, jeg ønsker en beskrivelse af denne funktion (en beskrivelse vil sige en forklaring af hver linje i hele funktionen):
function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
BeskedBoks: TForm;
i: Integer;
Knap: TButton;
CaptionIndex: Integer;
begin
BeskedBoks := CreateMessageDialog(Msg, DlgType, Buttons);
captionIndex := 0;
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;