Скачать: CL | DM;

Как расположить пункт главного меню справа   Найти похожие ветки 

← →
Артем К.   (2004-03-12 15:17) [0]

Привет мастера!

Видел во многих прогах, что пункт меню Exit расположен справа как это сделать?

Заранее спасибо!

---

← →
Ega23 ©   (2004-03-12 15:19) [1]

Приведи пример. Программу назови. Мне самому интересно посмотреть.

---

← →
ssk   (2004-03-12 15:23) [2]

Пункт меню "Помощь" находится справа:

procedure MenuHelpRight(MainMenu:TMainMenu; NameMenuItem:TMenuItem);
begin
 ModifyMenu(MainMenu.Handle,
            NameMenuItem.MenuIndex,
            mf_ByPosition or mf_Popup or mf_Help,
            NameMenuItem.Handle,
            PChar(NameMenuItem.Caption))
end;

---

← →
Артем К.   (2004-03-12 15:24) [3]

CD Checker

---

← →
Ega23 ©   (2004-03-12 15:29) [4]

А стоит ли это делать. Есть, так сказать, устоявшиеся пользовательские интерфейсы. Возьми в качестве эталона любой интерфейс из:
Microsofr Office,
WinZip,
WinRar

Да тот же Delphi, в конце-концов.

---

← →
WebErr ©   (2004-03-12 15:38) [5]

> Ega23 ©   (12.03.04 15:29) [4]
> А стоит ли это делать.

А почему нет? Нужно знать всего понемногу, чтобы уметь всё! :)

---

← →
Артем К.   (2004-03-12 15:40) [6]

Я сделал но у меня че-то виснет прога при нажатии на пункте меню

---

← →
ssk   (2004-03-12 15:56) [7]

D7 + Win98 = нормально работает

---

← →
Артем К.   (2004-03-12 16:01) [8]

а ее от куда вызывать надо

---

← →
Serge ©   (2004-03-12 16:02) [9]

In the Constructor

---

← →
Артем К.   (2004-03-12 16:05) [10]

Вот смотри я вызвал ее из FormCreate, нажимаю на нем а она мне ничего не делает а должна делать Close

---

← →
serge ©   (2004-03-12 16:07) [11]

Кто ничего не делает ? Кто она ?

---

← →
Артем К.   (2004-03-12 16:11) [12]

1.при помощи этой процедуры располагаем элемент меню Exit справа;
2.при нажатии на Exit программа должна закрываться;
3.программа у меня не закрывается, как-будто вообще в этом Exit не прописано Close

---

← →
ssk   (2004-03-12 16:12) [13]

вот мой юнит, который 100% работает


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Menus;

type
 TForm1 = class(TForm)
   MainMenu1: TMainMenu;
   N11: TMenuItem;
   N21: TMenuItem;
   N31: TMenuItem;
   N131: TMenuItem;
   N12: TMenuItem;
   N13: TMenuItem;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure MenuHelpRight(MainMenu:TMainMenu; NameMenuItem:TMenuItem);
begin
ModifyMenu(MainMenu.Handle,
     NameMenuItem.MenuIndex,
     mf_ByPosition or mf_Popup or mf_Help,
     NameMenuItem.Handle,
     PChar(NameMenuItem.Caption))
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 MenuHelpRight(MainMenu1, N31);
end;

end.


---

← →
Артем К.   (2004-03-12 16:16) [14]

А ты попробуй в N31 загнать Close

---

← →
ssk   (2004-03-12 16:17) [15]

а действительно, если прописать обработчик, то не работает. вернее, оно работает, только если мышью несколько раз нажать на пункт. странно как-то...

---

← →
Serge ©   (2004-03-12 16:30) [16]

Eсли навесть ShowMessage("") отрабатывает сразу, если Close - [15]

---

← →
Артем К.   (2004-03-12 16:32) [17]

Че значит 15

---

← →
serge ©   (2004-03-12 16:36) [18]

Ответ № 15 "ssk   (12.03.04 16:17) [15]"

---

← →
Артем К.   (2004-03-12 16:38) [19]

Короче ктонить знает как решить эту проблемку

---

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

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.021 c