Arsip: Format Message Dialog


by Starboard in Articles more 14 years ago 2215

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;
Syntax Highlighted with https://pascal-id.org/syntax
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;
Syntax Highlighted with https://pascal-id.org/syntax


Misalkan kita mau buat message dialog seperti ini:


kita tinggal masukan perintah
MyMessageDialog('Kalian Sudah Makan Belum',mtInformation,[mbyes,mbno],['Sudah','Belum']);
Syntax Highlighted with https://pascal-id.org/syntax


untuk memudahkan penggunaan, buat unit tips n trick biar gampang manggilnya.. he he..b :D
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com