Текущий архив: 2004.04.04;
Скачать: 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 вся ветка
Текущий архив: 2004.04.04;
Скачать: CL | DM;
Память: 0.5 MB
Время: 0.027 c
