Arsip: MessageDlg????

more 15 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???

more 15 years ago
adhisyanda
setau saya sich tu dah bawaan dari delphinya...
jd g bisa di ubah ma kita...

more 15 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.

more 15 years ago
elva_ivana
Nambahin Bro @CH ....
masuk ke blog nya @deLogic
lengkap ama penjelasannya ..........
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- join table
by ags606 in Hal umum tentang Pascal Indonesia more 18 years ago - gimana sich cara penjumlahan list box1 dengan list box2
by dody in Tip n Trik Pemrograman more 16 years ago - kenapa Suara lebih dulu daripada label.caption ?
by gormet in Multimedia & Graphic Enhancement more 17 years ago - Tutorial Live belajar delphi.....
by EkoIndri in Tutorial & Community Project more 18 years ago - What do you thing..
by yayaretina in OOT more 18 years ago - Error install komponen indy 10
by reza_elka in Tip n Trik Pemrograman more 13 years ago - tulung tulung ..... Getting IP, Subnet, Gateway
by Manz in Network, Files, I/O & System more 18 years ago - BANTU ENE BUAT PROGRAM BATREY STATUS
by dedidavidbala in Hal umum tentang Pascal Indonesia more 13 years ago - Permohonan Maaf
by othello in FireBird more 16 years ago - Ada Yang Jual Code Gear Second Hand Tapi Original ??
by belajaraja in Lain-lain more 14 years ago