Arsip: Minta Bantuan Teman2
more 19 years ago
saysansay
Maaf! Saya Mau Minta Bantuan...
Disini Saya Kesulitan
1. Saat Program ditutup Posisi Mouse Harus Berada Pada Button Ok Dengan Mengguna Kan Messagedlg/setfocus pd button ok..saaat program exit(Ada Yang Tau Source Codenya nga?)
2. Apakah Bisa Didelphi Menggunakan Crystal Report..Kalau Ada Yang Bisa Saya Minta Tolong Gimana Cara Insstal Crystal Reportnya?Dan Langkah Awalnya..
Tahnk's
Email : Saysansay@yahoo.com
more 19 years ago
tox2wow
1. Hmm, kalo logika gw, MessageDlg - nya harus bikin sendiri nih, baru bisa di pake fungsi SetFocus.
Algoritmanya :
[code:1:82f05d44d8]
var
NamaTombol: array[TMsgDlgBtn] of string = ( 'OK', 'Cancel');
function TombolSetPokus(const Pesan: string;
Tipe: TMsgDlgType;
Tombol: TMsgDlgButtons;
Pokus: TMsgDlgBtn;
HelpKontek: Longint): Integer;
var Tbl: TComponent;
begin
with CreateMessageDialog(Pesan, Tipe, Tombol) do
try
HelpContext := HelpKontek;
Position := poScreenCenter;
Tbl := FindComponent( NamaTombol[Pokus] );
if (Tbl <> nil) and (Tbl is TWinControl) then
ActiveControl := Tbl as TWinControl;
Result := ShowModal;
finally
Free;
end;
end;
procedure Form1.onClose(Sender : TObject)
begin
// Panggil message dialog-nya
TombolSetPokus('Ngapain lo tutup form ini ? Puk yu lah ..', mtConfirmation, [mbOk, mbCancel], mbOK, 0);
end;
[/code:1:82f05d44d8]
Tapi kalo buat posisi Mouse yang berada di atas tombol OK, saat message ditampilkan, gimana ya ??? Mungkin mas2 delphi-id yang lain bisa bantu nihh !!
Coba kalo pake link ini :
{How to move the mouse automatically to the center of the control that has the focus...}
http://www.delphi3000.com/articles/article_615.asp?SK=
Untuk ' SK = ' nya, ada yang tau nyarinya pake tools apa ya ??? wakakaka ... (Coba kalo di isi sama cookie, di cari pake Brutus. Wahhhh .) :twisted:
2. Crystal Report ??? Apa nihhh ??? . Kayanya pernah denger nih Crystal Report. Buat VB ya ??? wahhh, seru juga nihhh, Delphi vs VB. .... :evil:
more 19 years ago
cyber_hecker
wakakakaka... :D
pertanyaan bagus.. sip.. sip.. :P, dan anda lagi beruntung karena malam ini malam minggu, gue jadi males tidur. takut entar pagi ketinggalan kartun dragonball, jadi iseng bikin fungsi untuk message dialog auto focus :oops: wakakakak :D
setelah bereksperimen beberapa jam jadilah listing dibawah ini :
function CursorMsgDlg(sCaption : String; vDlgType: TMsgDlgType;
vButton: TMsgDlgButtons; sButton: String) : TModalResult;
var
aMsgDlg : TForm;
pt : TPoint;
begin
aMsgDlg := CreateMessageDialog(
sCaption,
vDlgType,
vButton);
{Get the point in the center of dialog button}
if aMsgDlg.FindComponent(sButton) <> nil then
begin
Pt.x := (aMsgDlg.FindComponent(sButton) As TButton).Left +
((aMsgDlg.FindComponent(sButton) As TButton).Width div 2);
Pt.y := (aMsgDlg.FindComponent(sButton) As TButton).Top +
((aMsgDlg.FindComponent(sButton) As TButton).Height div 2);
Pt := aMsgDlg.ClientToScreen(Pt);
SetCursorPos(pt.X, pt.y);
end;
with aMsgDlg do
try
Caption := 'cyber hecker dialog';
Result := ShowModal;
finally
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CursorMsgDlg('silakan di klik...',
mtInformation,[mbYes, mbNo], 'Yes') = mrYes then
Caption := 'Yes Di tekan' else
Caption := 'No Di tekan';
end;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
- hitung total with sqL
by nurez in Tip n Trik Pemrograman more 17 years ago - Saran : Sering Adain Lomba
by cyber_hecker in Kritik & Saran more 19 years ago - cara menggunakan vcl skin
by comel in Hal umum tentang Pascal Indonesia more 16 years ago - menghitung invers cos...???
by alvian_tc in Tip n Trik Pemrograman more 15 years ago - 'bouT QuickReport
by mima in Hal umum tentang Pascal Indonesia more 17 years ago - Memperkirakan Waktu utk Meng-copy file atau Men-search file
by bboyz in MySQL more 17 years ago - perintah sql untuk operasi pengurangan 2 tabel
by ricky_seldjatem in Tip n Trik Pemrograman more 16 years ago - Progress bar ketika Execute query
by dkhosuma in Hal umum tentang Pascal Indonesia more 17 years ago - gimana buat looping dalam fungsi yang nggak bikin crash
by jancky in Tip n Trik Pemrograman more 17 years ago - Quick Report
by marvel in Reporting more 19 years ago