Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Вниз

WindowMenu Tform   Найти похожие ветки 

← →
Lionzi   (2003-09-29 15:38) [0]

Уважаемые Мастера, помогите пожалуста, сталкнулся с такой проблемой. Приложение многооконное. Надо чтобы в меню Окна появлялся список открытых в данный момент окон (как в worde)

Кидаю на форму MainMenu, создаю в нем меню. Один из пунктов называеться Caption - Окна, Name - WindowMenu. Заходжу в инспектор объектов для Tform, и в строке WindowMenu, выбираю Нужное имя в данном случае WindowMenu, все как написано в уроках. Сначало все было нормально. В пункте окна появлялся список окон, которые в данный момент открыты. Но в какой-то момент этот список перестал появляться. Вроде я его совсем не трогал...

В чем может быть дело?

unit Graf;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtDlgs, Menus, ExtCtrls, StdActns, ActnList;

type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
OpenPictureDialog1: TOpenPictureDialog;
WindowMenu: TMenuItem;
ActionList1: TActionList;
WindowClose1: TWindowClose;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowTileVertical1: TWindowTileVertical;
WindowMinimizeAll1: TWindowMinimizeAll;
WindowArrange1: TWindowArrange;
MinimizeAll1: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N6: TMenuItem;
N5: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

uses Graf2, AboutUnit;

{$R *.DFM}

procedure TMainForm.N2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then // если файл выбран, то выполнять следующее
begin
ChildForm := TChildForm.Create(Self);//открыть дополнительное окно
ChildForm.Image1.Picture.loadFromFile(OpenPictureDialog1.FileName);//открыть в этом окне заданный файл
ChildForm.Caption := OpenPictureDialog1.FileName;//присвоить окну имя файла
end;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
Close;//закрыть главную форму
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
About.ShowModal;//запустить окно About
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
if ChildForm.Image1.Stretch = True // если Stretch равно true
then ChildForm.Image1.Stretch := False // то присвоить ему значение false
else ChildForm.Image1.Stretch := True // иначе, присвоить значение true
end;

end.


Заранее благодарен, Lionzi.

---

← →
Lionzi   (2003-09-29 15:59) [1]

Уроки по адресу http://programming.com.ua/doc/5/les-5.html

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c