Delphi Basic#4
Sun, Apr 26, 2009
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;
itemsmenu51: TMenuItem;
itemsmenu61: TMenuItem;
Exit1: TMenuItem;
EXIT2: TMenuItem;
Menu21: TMenuItem;
itemsmenu12: TMenuItem;
itemsmenu22: TMenuItem;
itemsmenu23: TMenuItem;
itemsmenu31: TMenuItem;
procedure itemsmenu11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.itemsmenu11Click(Sender: TObject);
var
MenuItem : TMenuItem;
Pilihan : integer;
MenuPopUp, ItemMenu : integer;
str : string;
begin
Menuitem:= Sender as TmenuItem;
Pilihan:= MenuItem.Tag;
//mencari menu dan item menu yang di pilih
if (Pilihan >10) then
MenuPopup:=2
else
MenuPopup:=1;
if (Pilihan >10) then
ItemMenu:=Pilihan - 10
else
ItemMenu :=Pilihan;
//menginisialisasi string yang di tampilkan
str:='Menu'+ IntToStr(MenuPopup) + 'Item Menu' +
IntToStr (ItemMenu) + 'dipilih or clicked';
//menampilkan kotak pesan
Application.MessageBox(PChar (Str), 'Informasi',
MB_OK or MB_ICONINFORMATION);
end;
end.
SCREENSHOOT BELOW :
Kesimpulan :
Metode ini adalah basic dari membuat tampilan menu pada window.
Random Posts
Tags: menu delphi, menuPopup
Leave a Reply