Tuesday, July 15, 2008

InputBox Pada Delphi Untuk Pemula

Ada suatu cara mudah untuk meminta inputan kepada user. Kita bisa menggunakan InputBox.

Function InputBox(const ACaption, APromp, ADefault: String): String;

Contoh:

Uses Dialogs;
procedure TForm1.Button1Click(Sender: TObject);
var
InputMasukan: String;
begin
InputMasukan:=InputBox(‘Ini adalah caption’,'dan ini
adalah
prompt’,’sedangkan ini adalah default input’);
end;

clip_image002

Bila user menekan tombol OK, maka nilai yang tersimpan pada InputMasukan adalah teks pada editbox yang tertampil dalam inputBox. Jika User menekan tombol Cancel atau menekan tombol Esc pada keyboard, maka nilai yang tersimpan pada InputMasukan adalah teks Default (dalam hal ini tekx defaultnya adalah ‘sedangkan ini adalah default input’).

Jadi dalam InputBox ini kita tidak dapat mengetahui tombol mana yang di tekan oleh user. Yang dapat diketahui hanyalah hasil keluarannya berupa string. Bila kita perlu ubtuk mengetahui tombol apa yang di tekan oleh User, gunakan InputQuery. Tampilan yang dihasilkan oleh InputQuery sama dengan tampilan InputBox. Syntax :

function InputQuery(const ACaption, Aprompt: string; var Value: String):Boolean;

Contoh:

procedure TForml.Button1Click(Sender: TObject);
var
NewString: string’;
ClickedOK: Boolean;
begin
NewString := ‘Default String’;
Label1.Caption := Newstring;
ClickedOK := InputQuery(‘Input Box’, ‘Prompt’, NewString);
If ClickedOK then { Newstring contain new input String }
Label1.Caption := ‘The new string is ’’’ + Newstring + ’’’’;
End;

Selamat Mencoba.

No comments:

Post a Comment


Powered By Bloomberg