JagoVB
20th November 2011, 12:20 AM
gan tolong masukannya dong,,codingan ane ini dimana salahnya yaa?? klo buat di menu yg pertama ane mau nampilin form2 trus menu yg kedua ane mau nampilin form3
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
timer1: TMenuItem;
font1: TMenuItem;
procedure timer1Click(Sender: TObject);
procedure font1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Form2:
{$R *.dfm}
procedure TForm1.timer1Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.font1Click(Sender: TObject);
begin
Form3.show;
end;
end.
</div>
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
timer1: TMenuItem;
font1: TMenuItem;
procedure timer1Click(Sender: TObject);
procedure font1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Form2:
{$R *.dfm}
procedure TForm1.timer1Click(Sender: TObject);
begin
Form2.show;
end;
procedure TForm1.font1Click(Sender: TObject);
begin
Form3.show;
end;
end.
</div>