[maZaHaKa]

Проблема заключается в том что при добавлении на форму компонентов MainMenu и PopupMenu они не работают. То есть я добавил и вижу их на форме так же и Главное меню - в редакторе создал разделы и кнопки в меню - но при запуске программы меню не появляется. Тоже самое делал в новом проекте - все работает отлично. А на моей программе не хочет. Прошу помочь нубу советом. Вот код:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask, jpeg, CheckLst, Buttons, ClipBrd, ShellAPI,
  Menus;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label8: TLabel;
    Bevel1: TBevel;
    CheckBox1: TCheckBox;
    ListBox1: TListBox;
    Label9: TLabel;
    Image2: TImage;
    BitBtn2: TBitBtn;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label10: TLabel;
    Image1: TImage;
    BitBtn1: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    PopupMenu1: TPopupMenu;
    N3: TMenuItem;
    

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure MaskEdit2Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 Label 1;
 var n:integer;
begin
 if (maskedit1.text='') or (maskedit2.text='') or (Edit2.text='') then label10.caption:='Заполните поля';
if    (maskEdit1.Text = '')
   or (maskEdit2.Text = '')
   or (Edit2.Text = '')
   or (maskedit1.text<>maskedit2.text)
     then ShowMessage('Ошибка. Не верные данные')

      else begin
1:n:=random(9999999);
if n>1000000
   then label8.caption:=inttostr(n)
     else goto 1;
          maskedit1.enabled:=false;
          maskedit2.enabled:=false;
          edit2.enabled:=false;
             maskedit1.Text:='';
             maskedit2.Text:='';
          listbox1.items.add(label8.caption);
  if label8.caption<>''
     then begin image1.visible:=false; image2.visible:=true
      end  else begin image1.visible:=true; image2.visible:=false;
end
end
end;




procedure TForm1.Button2Click(Sender: TObject);
begin
if (maskedit1.text='') or (maskedit2.text='') or (Edit2.text='') then label10.caption:='Заполните поля';
maskedit1.Text:='';
maskedit2.Text:='';
label8.caption:='';
edit2.Text:='';
maskedit1.enabled:=true;
maskedit2.enabled:=true;
edit2.enabled:=true;
 if label8.caption<>''
     then begin image1.visible:=false; image2.visible:=true
      end  else begin image1.visible:=true; image2.visible:=false;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
listbox1.clear;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.checked = true then begin
 maskedit1.passwordchar:=#0;
 maskedit2.passwordchar:=#0
end
else begin
          maskedit1.passwordchar:='*';
          maskedit2.passwordchar:='*';
end;

end; 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if closequery then close;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
listbox1.DeleteSelected;
end;



procedure TForm1.Button4Click(Sender: TObject);
var
   Buffer: PChar;
   Size: Integer;
   Ptr: PChar;
   I: Integer;
   Line: string[255];
   Count: Integer;
   BufferSize: Integer;
   CopyAll: Boolean;
 begin
   if not Assigned(ListBox1) then
     Exit;

   GetMem(Buffer, BufferSize);
   Ptr   := Buffer;
   Count := 0;
   for I := 0 to ListBox1.Items.Count - 1 do
   begin
     Line := ListBox1.Items.strings[i];
     if not CopyAll and ListBox1.MultiSelect and (not ListBox1.Selected[i]) then
       Continue;
     { Check buffer overflow }
     Count := Count + Length(Line) + 3;
     if Count = BufferSize then
       Break;
     { Append to buffer }
     Move(Line[1], Ptr^, Length(Line));
     Ptr    := Ptr + Length(Line);
     Ptr[0] := #13;
     Ptr[1] := #10;
     Ptr    := Ptr + 2;
   end;
   Ptr[0] := #0;
   ClipBoard.SetTextBuf(Buffer);
   FreeMem(Buffer, BufferSize);
 end;

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
 if (maskedit1.text='') or (maskedit2.text='') or (Edit2.text='') then label10.caption:='Заполните поля';
Button1.Enabled := Length(MaskEdit1.Text) > 3;
 if Button1.enabled=false
     then label10.caption:='Минимум 4 символа'
        else label10.caption:='';
end;

procedure TForm1.MaskEdit2Change(Sender: TObject);
begin
if (maskedit1.text='') or (maskedit2.text='') or (Edit2.text='') then label10.caption:='Заполните поля';
Button1.Enabled := Length(MaskEdit2.Text) > 3;
if Button1.enabled=false
     then label10.caption:='Минимум 4 символа'
        else label10.caption:='';
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if (maskedit1.text='') or (maskedit2.text='') or (Edit2.text='') then label10.caption:='Заполните поля';
Button1.Enabled := Length(Edit2.Text) > 7;
if Button1.enabled=false
     then label10.caption:='Минимум 8 символов'
        else label10.caption:='';
end;

procedure TForm1.Label7Click(Sender: TObject);
begin
ShellExecute(handle,'open','http://games.vilka.info/',nil,nil,SW_SHOW);
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
application.createform(TForm2,Form2);
  if Form2.ShowModal=mrOk then
    begin
    end;
  Form2.Free;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
if closequery then close;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
If closequery then close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Admin: Учимся пользоваться тегами.

[Asinkrit]

А у формы свойство BorderStyle у тебя не bsDialog случаем?

[maZaHaKa]

Asinkrit
Это как? Можно подробней?

[maZaHaKa]

Asinkrit
Точно так и есть. Уже исправил спасибо.