Latihan kali ini kita membuat sebuah tampilan menu pada window yang di gunakan dalam berbagai aplikasi. Membuat 1 Form dengan Source Code : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) MainMenu1: TMainMenu; Menu11: TMenuItem; itemsmenu11: TMenuItem; itemsmenu21: TMenuItem; N1: TMenuItem; itemmenu4CtrlF11: TMenuItem; itemsmenu4CtrlShiftF11: TMenuItem; [...]
Sekarang kita mencoba untuk membuat form yang mempunyai kegunaan untuk menampilkan Window pada Menu yang sering jumpai, semisal untuk membuat jendela baru pada IE or Firefox. => Pertama kita membuat FormInduk untuk tempat menu yang akan kita tambahkan nanti. => Kedua kita membuat FormAnak sebagai window yang akan di tambahkan di dalam FormInduk. Source code [...]
Di Post sebelumnya kita sudah coba menggunakan Selection pada Delphi utk menentukan Hari , Let’s try utk Menentukan BULAN. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Label1: TLabel; nilai: TEdit; Label2: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { [...]
Bagaimana mencari atau selection pada Delphi, berikut contoh di bawah ini menggunakan ekspresi “IF ELSE” Case-nya : Bagaimana menentukan Hari Berdasarkan Bilangan yang di input ? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; nilai: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); [...]
#CHAPTER 1 1.How to create simple pop up Welcome Text in Delphi ? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure formclick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.formclick(Sender: TObject); begin Application.MessageBox(‘Welcome [...]
