Modifikasi Message Dialog Delphi

Pernahkan Anda berpikir bagaimana jika Pesan peringatan yang muncul kita buat sendiri menjadi bahasa indonesia,lihat gambar dibawah ini.

Seperti itulah yang saua maksud. Nah disini saya share listing untuk membuat yang demikian itu.

function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
aMsgDlg: TForm;
i: Integer;
dlgButton: TButton;
CaptionIndex: Integer;
begin
aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
captionIndex := 0;
aMsgDlg.Color:=clYellow;
aMsgDlg.Caption:=’Pesan’;
for i := 0 to aMsgDlg.ComponentCount – 1 do
begin
if (aMsgDlg.Components[i] is TButton) then
begin
dlgButton := TButton(aMsgDlg.Components[i]);
if CaptionIndex > High(Captions) then Break;
dlgButton.Caption := Captions[CaptionIndex];
Inc(CaptionIndex);
end;
end;
Result := aMsgDlg.ShowModal;
end;

procedure Delay(msec: Longint);
var
start, stop: Longint;
begin
start := GetTickCount;
repeat
stop := GetTickCount;
Application.ProcessMessages;
until (stop – start) >= msec;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if MyMessageDialog(‘Anda yakin…?’, mtConfirmation, mbOKCancel,
['Ya', 'Tidak']) = mrOk then
ShowMessage(‘”Ya” clicked‘)
else
ShowMessage(‘”Tidak” clicked‘);
end;

Semoga tidak ada kesalahan ya !!

Posted by Antas Delphi on - Rating: 4.5

Title : Modifikasi Message Dialog Delphi
Description : Pernahkan Anda berpikir bagaimana jika Pesan peringatan yang muncul kita buat sendiri menjadi bahasa indonesia,lihat gambar dibawah ini. ...