Ini Tips yang aku temukan sudah lama sich, sekitar setahun yang lalu mungkin ya :D
Walau Tips ini Punya Orang Lain, Mungkin rekan rekan di sini membutuhkan nya, dan kemungkinan lagi cari cari, eh pas aku submit artikel kan cocok.
Sharing Make Perfect kan ? :D
Ini Fungsinya memformat Message Dialog Yang Standar, sesuai dengan keinginan kita.
function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; Captions: array of string): Integer;
|
|
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;
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;
|
|
Misalkan kita mau buat message dialog seperti ini:
kita tinggal masukan perintah
MyMessageDialog('Kalian Sudah Makan Belum',mtInformation,[mbyes,mbno],['Sudah','Belum']);
|
|
untuk memudahkan penggunaan, buat unit tips n trick biar gampang manggilnya.. he he..b :D