Arsip: MessageDlg????

 
user image
more 10 years ago

akudana

procedure TFormUtama.BitBtnLanjutClick(Sender: TObject); var z : integer; begin if ( MessageDlg ('Apakah anda ingin lanjut', mtInformation,[mbYes,mbNo],0) = mrYes ) then begin for z := 0 to ComponentCount -1 do if components [z] is TTabSheet then with components [z] as TTabSheet do Enabled := true; TabSheet1.Enabled := false; PageControl.ActivePage := TabSheet2; TabSheet2.Enabled := True; end else begin PageControl.ActivePage := TabSheet1; end; kode diatas tidak ada yang error... tapi saya mau tanya bisa ga kata2 yes menjadi ya dan no menjadi tidak??? saya coba ganti mbYes jadi mbYa kok ga bisa yaaa... apanya???
user image
more 10 years ago

adhisyanda

setau saya sich tu dah bawaan dari delphinya... jd g bisa di ubah ma kita...
user image
more 10 years ago

cyber_hecker

klo pengen ngubah kata YES jadi YA itu ada caranya. kalo gak salah senior-senior di sini pernah memberikan contohnya. tapi saya lupa sapa.. dan ampe sekarang saya juga menggunakan kode darinya. dan senior itu adalah : Bayu Prasetio :D ini kode nya, udah ku tambah dikit seh:
interface
uses
  Windows, Consts, SysUtils;
procedure ReplaceResourceString(RStringRec: PResStringRec; AString: PChar);
const
  _NewSMsgDlgWarning = 'Peringatan';
  _NewSMsgDlgError = 'Kesalahan';
  _NewSMsgDlgInformation = 'Informasi';
  _NewSMsgDlgConfirm = 'Konfirmasi';
  _NewSMsgDlgYes = '&Ya';
  _NewSMsgDlgNo = '&Tidak';
  _NewSMsgDlgOK = 'OK';
  _NewSMsgDlgCancel = 'Batal';
  _NewSMsgDlgHelp = '&Panduan';
  _NewSMsgDlgHelpNone = 'Panduan tidak tersedia';
  _NewSMsgDlgHelpHelp = 'Panduan';
  _NewSMsgDlgAbort = '&Batal';
  _NewSMsgDlgRetry = '&Ulang';
  _NewSMsgDlgIgnore = 'A&cuh';
  _NewSMsgDlgAll = '&Semua';
  _NewSMsgDlgNoToAll = 'T&idak untuk Semua';
  _NewSMsgDlgYesToAll = 'Ya untuk S&emua';
implementation
{-- taken from bpCodeReplacement.pas by Bayu Prasetio}
procedure ReplaceResourceString(RStringRec: PResStringRec; AString: PChar);
var
  OldProtect: Cardinal;
begin
  if RStringRec = nil then Exit;
  if VirtualProtect(RStringRec, SizeOf(RStringRec^), PAGE_EXECUTE_READWRITE, OldProtect) then
  begin
    RStringRec^.Identifier := Integer(AString);
    VirtualProtect(RStringRec, SizeOf(RStringRec^), OldProtect, @OldProtect);
  end;
end;
initialization
  ReplaceResourceString(@SMsgDlgWarning, _NewSMsgDlgWarning);
  ReplaceResourceString(@SMsgDlgError, _NewSMsgDlgError);
  ReplaceResourceString(@SMsgDlgInformation, _NewSMsgDlgInformation);
  ReplaceResourceString(@SMsgDlgConfirm, _NewSMsgDlgConfirm);
  ReplaceResourceString(@SMsgDlgYes, _NewSMsgDlgYes);
  ReplaceResourceString(@SMsgDlgNo, _NewSMsgDlgNo);
  ReplaceResourceString(@SMsgDlgOK, _NewSMsgDlgOK);
  ReplaceResourceString(@SMsgDlgCancel, _NewSMsgDlgCancel);
  ReplaceResourceString(@SMsgDlgHelp, _NewSMsgDlgHelp);
  ReplaceResourceString(@SMsgDlgHelpNone, _NewSMsgDlgHelpNone);
  ReplaceResourceString(@SMsgDlgHelpHelp, _NewSMsgDlgHelpHelp);
  ReplaceResourceString(@SMsgDlgAbort, _NewSMsgDlgAbort);
  ReplaceResourceString(@SMsgDlgRetry, _NewSMsgDlgRetry);
  ReplaceResourceString(@SMsgDlgIgnore, _NewSMsgDlgIgnore);
  ReplaceResourceString(@SMsgDlgAll, _NewSMsgDlgAll);
  ReplaceResourceString(@SMsgDlgNoToAll, _NewSMsgDlgNoToAll);
  ReplaceResourceString(@SMsgDlgYesToAll, _NewSMsgDlgYesToAll);
  DateSeparator := '/';
  LongDayNames[1] := 'Minggu';
  LongDayNames[2] := 'Senin';
  LongDayNames[3] := 'Selasa';
  LongDayNames[4] := 'Rabu';
  LongDayNames[5] := 'Kamis';
  LongDayNames[6] := 'Jumat';
  LongDayNames[7] := 'Sabtu';
  ShortDayNames[1] := 'Mgu';
  ShortDayNames[2] := 'Sen';
  ShortDayNames[3] := 'Sel';
  ShortDayNames[4] := 'Rab';
  ShortDayNames[5] := 'Kam';
  ShortDayNames[6] := 'Jum';
  ShortDayNames[7] := 'Sab';
  LongMonthNames[1] := 'Januari';
  LongMonthNames[2] := 'Februari';
  LongMonthNames[3] := 'Maret';
  LongMonthNames[4] := 'April';
  LongMonthNames[5] := 'Mei';
  LongMonthNames[6] := 'Juni';
  LongMonthNames[7] := 'Juli';
  LongMonthNames[8] := 'Agustus';
  LongMonthNames[9] := 'September';
  LongMonthNames[10] := 'Oktober';
  LongMonthNames[11] := 'November';
  LongMonthNames[12] := 'Desember';
  ShortMonthNames[1] := 'Jan';
  ShortMonthNames[2] := 'Feb';
  ShortMonthNames[3] := 'Mar';
  ShortMonthNames[4] := 'Apr';
  ShortMonthNames[5] := 'Mei';
  ShortMonthNames[6] := 'Jun';
  ShortMonthNames[7] := 'Jul';
  ShortMonthNames[8] := 'Aug';
  ShortMonthNames[9] := 'Sep';
  ShortMonthNames[10] := 'Okt';
  ShortMonthNames[11] := 'Nov';
  ShortMonthNames[12] := 'Des';
end.
user image
more 10 years ago

elva_ivana

Nambahin Bro @CH .... masuk ke blog nya @deLogic lengkap ama penjelasannya ..........
user image
more 10 years ago

akudana

oyaa... thanxs buat semuannya....
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com